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ABSTRACT 


The requirement for efficient scheduling algorithms for the development 
of hard real-time systems resulted in much effort directed toward the 
development of high performance scheduling algorithms. The algorithms 
developed up to this point for the Computer Aided Prototyping System 
(CAPS) do not satisfy the requirements for a efficient static scheduling 
algorithm. The existing static scheduler neither performs efficiently nor 
produces correct results for all input cases. 

This thesis represents the research conducted to develop a fast heuristic 
static scheduling algorithm based on the principles of simulated annealing. 
In addition, this thesis describes the development of new data structures that 
simplify the static scheduler and maximize system resources. Several of the 
existing scheduling algorithms were re-implemented to make use of the new 
data structures and provide correct results. Any feasible schedule produced by 
these scheduling algorithms guarantees that both timing and precedence 
constraints are met. The primary goal of this thesis was to produce an 


efficient and effective scheduler to support the CAPS system. 
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I. INTRODUCTION 


A. BACKGROUND: HARD REAL-TIME SYSTEMS 

Large scale hard real-time systems are important to both civilian and 
military operations. Hard real-time systems are defined as those systems in 
which the correctness of the system depends not only on the logical results of 
the computation, but also on the time at which the results are produced. If 
results are not produced in a timely manner, disastrous results may occur. 
Examples of hard real-time systems include air traffic control systems, 
telecommunications systems, space shuttle control avionics systems, CI 
systems, and future Strategic Defense Initiative (SDI) systems. Most hard real- 
time systems are specialized and complex, require a high degree of fault 
tolerance, and are typically embedded in a larger system. To overcome the 
complexity in the design and development of such systems, software 
engineers now use a new approach, called rapid prototyping, to build and 
maintain these systems. Rapid prototyping is a means for stabilizing and 
validating the requirements for complex systems (e.g. embedded control 
systems with hard real-time constraints) by helping the customer visualize 
system behavior prior to detailed implementation. The Computer Aided 
Prototyping System (CAPS), which is being developed at the Naval 
Postgraduate School, supports an iterative prototyping process characterized 
by exploratory design and extensive prototype evolution, thus enabling the 
engineers to produce complex systems that match user needs and reduce the 


need for expensive modifications after delivery. 


B. THECOMPUTER AIDED PROTOTYPING SYSTEM (CAPS) 

CAPS consists of several modules. Figure 1 below describes the major 
software modules of CAPS. The user interface consists largely of a graphical 
editor for the formal prototyping language called Prototyping System 
Description Language (PSDL). Future implementations of this module will 
also have a syntax directed editor. The second module is the Software 
Database System which includes the Rewrite Subsystems, the Software Design 
Management Subsystem, and the Reusable Software Component Database. 
The third module is the Execution Support System (ESS). This module 
contains the PSDL Translator, the Static Scheduler, and the Dynamic 
Scheduler. Figure 2 shows the implementation and interfaces of the ESS. 


This thesis is concerned with the static scheduler component of the ESS. 


User Software Execution 
Interface Database Support 
Svstem Svstem 





Figure 1. Major Software Tools of CAPS 


The Dvnamic Scheduler acts as a run-time executive when exercising the 
svstem. lt schedules operators without timing constraints, which are not 


include in the static schedule, by using spare capacity in the static schedule. It 
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Figure 2. The Execution Support System 


handles run-time exceptions and hardware/operator interrupts. It 


communicates with the user interface during prototype runs. 


Thus, it 


performs like a miniature operating svstem. While the problems involved in 
this subsvstem are interesting, it is the static scheduler that deals with the 
issues addressed in this proposal. 

The purpose of the static scheduler is to build a static schedule for a set of 
tasks that must obev both precedence and timing constraints. This schedule 
gives the order of execution and the timing of the operators. The schedule is 
legal and feasible if both the precedence relationships are maintained and the 
timing constraints are guaranteed to be met. 

The existing static scheduler is described in (Janson, 1988), (Killic 1989) 
and (Cervantes, 1988). Figure 3 is a data flow description of the static 
scheduler. The following paragraphs are a description of the static scheduler 
that was originallv implemented bv (Janson, 1988), (Killic, 1989), (Cervantes, 
1988) and modified bv the work described in this thesis. The Static Scheduler 
consists of five modules—PSDL READER, FILE PROCESSOR, 
TOPOLOGICAL SORTER, HARMONIC BLOCK BUILDER, and OPERATOR SCHEDULER. 

The first component, PSDL READER, reads and processes the PSDL 
prototyping program. It is essentially a filter that removes information not 
needed by the Static Scheduler. The output of this module is the text file 
ATOMIC.INFO that contains all the operators along with any timing 
constraints the operators may have and the link statements which describe 
PSDL implementation graphs. 

The second component, FILE_PROCESSOR, analyzes the text file 
generated by the PSDL_READER and separates the information into a linked 
list data structure called THE GRAPH and a file called NON CRITS. It then 





Figure 3. Static Scheduler Data Flow Diagram 


converts sporadic operators into their periodic equivalents. The information 
is separated based on its destination and the additional processing required. 
THE GRAPH, which is a graph structure, as indicated in Figure 4 below 
contains two linked lists. The 'VERTICES' list contains a list of all time- 
critical operators and their associated timing constraints. The ''LINKS' list 
contains the link statements which are a svntactical description of the PSDL 
implementation graphs and indicates the data flows between operators. The 
"VERTICES" list is used bv the HARMONIC BLOCK BUILDER module and 
the 'LINKS' list is used bv the OPERATOR SCHEDULER to develop a 
OP INFO list. The OP INFO list is then used by the 
TOPOLOGICAL SORTER to develop a precedence list for the operators to be 
scheduled. The entire structure THE GRAPH is also used bv 


OPERATOR SCHEDULER to develop a static schedule. The NON CRITS 
file contains a list of all non-critical operators that is used bv the Dvnamic 
Scheduler. 

The third component, TOPOLOGICAL SORTER, performs a topological 
sort on the OP INFO data structure. Using the OP INFO list is a change from 
the previous implementations of the Static Scheduler. The 
TOPOLOGICAL SORTER has also been rewritten. It now develops a true 
topological ordering and is not dependent on a specific ordering of operators 
in the PSDL input file. The result is a total ordering of the operators 
depending on data flow. This total ordering is passed to 


OPERATOR SCHEDULER module as the PRECEDENCE LIST data structure. 





Figure 4. Graphical Representation of THE GRAPH Linked List Structure 


The fourth component, HARMONIC BLOCK BUILDER determines the 


Harmonic Block Length of the static schedule to be developed. A harmonic 


C PERIODICOPERATORS 

This section is based upon the background work done in (Cervantes, 
1989). Periodic operators are triggered bv temporal events and must occur at 
regular time intervals. The timing constraints of each periodic operator OP, 
consists of a specific period period(OP,), a maximum execution time 
MET(OP.), and a deadline finish_within(OP;). Denote the kth instance of OP, 
by OP; x the start time of OP; , by start_time(OP; ,), and the completion time of 
OP; , by completion(OP;,). For k > 1, define earliest_start_time(OP; ,), the 
earliest starting time of OP;,, as start time(OP, ,) + (k-1) * period(OP;) and 
deadline (OP; 9, the latest completion time of OP; x as 
earliest start time(OP, |) + finish within(OP). Then 


start time(OP,,) >= earliest start time(OP; ,) 


and 


start time(OP;) + MET(OP) <= deadline(OP; ,). 


The precedence constraints among a given set of operators are specified in 
the form of a directed acyclic graph G. The precedence constraints are defined 
by the communications among the operators that compose the system being 
developed. PSDL operators communicate by means of named data streams. 
All data values carried by a data stream must be instances of a specific abstract 
data type associated with the stream. There are two different types of data 
streams in PSDL, dataflow streams and sampled streams. Dataflow streams 
are used in applications where the values in the stream must not be lost or 
replicated and the period of the producer and consumer of the data must be 


the same (lockstep performance). Sampled streams are used in applications 
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D. ORGANIZATION 

The objective of this thesis is to describe a new heuristic static scheduling 
algorithm that uses the principles of simulated annealing to develop a 
feasible schedule if one exists. To do so this thesis is organized as follows: 
Chapter II describes the static scheduling algorithms that exist in CAPS for a 
single processor environment; Chapter III is a description of the new heuristic 
scheduling algorithm. It includes a description of the simulated annealing 
process and the implementation of this process in the static scheduler; 
Chapter IV is a description of the new data structure and modifications made 
to existing modules that improve the performance of the static scheduler; 
Chapter V is an evaluation of this new algorithm; and Chapter VI presents 


conclusions and recommendations for future work. 
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addressed in (Janson, 1988). This chapter examines the five scheduling 
algorithms currentlv implemented in CAPS. These five algorithms are 
Harmonic Block with Precedence Constraints, Earliest Start, Earliest Deadline, 
Branch and Bound, and Exhaustive Enumeration. The first three algorithms 
were described in detail in (Kilic, 1989), and the remaining two were described 


in detail in (Fan, 1990). 


B. HARMONIC BLOCK WITH PRECEDENCE CONSTRAINTS 

This algorithm attempts to find a feasible schedule bv scheduling the 
operators in the order that they appear in a topological ordering. If any of the 
operators violate a timing constraint, the schedule being developed is 
rejected. Since in most hard real-time systems there exists more than one 
topological ordering of operators there are cases where one ordering will 
produce a feasible schedule while another will not. This algorithm does not 


adjust the topological ordering in order to find a feasible schedule. 


C EARLIEST START TIME SCHEDULING ALGORITHM 

In the original algorithm (Bra, 1971), each transaction must have an 
earliest start time. That is, each transaction becomes available at time a;, must 
be completed by b,, and requires c; units of time. Pre-emption of transactions 
is allowed in this algorithm but transaction precedence is normally not 
allowed. The version of the algorithm that is implemented in CAPS allows 
precedence but does not allow pre-emption. Transactions are scheduled in 
this algorithm based on the system clock, the earliest start time of a 
transaction, and the priority of the transaction. The algorithm assigns a time 


slot to the newest transaction based on its earliest start time. If two or more 
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E. THE NEED FOR A NEW SCHEDULING ALGORITHM 

There is a gap in the current static scheduler. Three algorithms exist that 
attempt to develop a quick solution. These algorithms only find feasible 
solutions for very simple hard real-time systems but fail to find a feasible 
solution as systems become more complex. Exhaustive Enumeration and 
Branch and Bound, on the other hand, will find a feasible schedule if such a 
schedule exists, but both are very costly due to their time complexity. 

There exists a need for a fast algorithm that is capable of producing a 
feasible solution. The proposed heuristic algorithm, which is based on the 
simulated annealing approach, appears to be the best compromise between 
simple-minded and exponential time algorithms already implemented in 


CAPS. 


F. SUMMARY 

This chapter presented a sample of previous algorithms developed to 
solve the real-time scheduling requirement. These algorithms have inherent 
weaknesses such as an inabilitv to handle complex topological orderings that 
do not immediatelv produce solutions or thev have a high degree of time 
complexitv. Since the static scheduling problem is NP-hard (Zdrzalka, 1988), 
systemic global search is the only guaranteed way to return a feasible static 
schedule for a hard real-time system if such a schedule exists. The exhaustive 
enumeration algorithm has already been implemented in CAPS to 
accomplish this. This algorithm has demonstrated to be very costly in 


practice. 


14 


E. THE NEED FOR A NEW SCHEDULING ALGORITHM 

There is a gap in the current static scheduler. Three algorithms exist that 
attempt to develop a quick solution. These algorithms only find feasible 
solutions for very simple hard real-time systems but fail to find a feasible 
solution as systems become more complex. Exhaustive Enumeration and 
Branch and Bound, on the other hand, will find a feasible schedule if such a 
schedule exists, but both are very costly due to their time complexity. 

There exists a need for a fast algorithm that is capable of producing a 
feasible solution. The proposed heuristic algorithm, which is based on the 
simulated annealing approach, appears to be the best compromise between 
simple-minded and exponential time algorithms already implemented in 


CAPS. 


F. SUMMARY 

This chapter presented a sample of previous algorithms developed to 
solve the real-time scheduling requirement. These algorithms have inherent 
weaknesses such as an inability to handle complex topological orderings that 
do not immediately produce solutions or they have a high degree of time 
complexity. Since the static scheduling problem is NP-hard (Zdrzalka, 1988), 
systemic global search is the only guaranteed way to return a feasible static 
schedule for a hard real-time system if such a schedule exists. The exhaustive 
enumeration algorithm has already been implemented in CAPS to 
accomplish this. This algorithm has demonstrated to be very costly in 


practice. 


14 


II. DESCRIPTION OF THE ALGORITHM TO HANDLE THE HARD REAL- 
TIME SCHEDULING PROBLEM 


A. SIMULATED ANNEALING 

The use of simulated annealing to solve combinatorial optimization 
problems is an area that has received much attention latelv. Combinatorial 
optimization problems are those whose configuration of elements are finite 
or countably infinite. An example combinatorial optimization problem is the 
assignment problem where there are a number of personnel available to do 
an equal number of jobs. The cost for each person to do each job is known. 
The goal is to assign each person to a job so that the total cost is as small as 
possible (Otten, 1989). There are a wide range of combinatorial optimization 
problems that the simulated annealing approach can be utilized for. These 
include graph partitioning, graph coloring, number partitioning, VLSI design, 
and travelling salesman type problems. 

Simulated annealing is based on the behavior of physical systems and the 
laws of thermodynamics. The way that liquids freeze and crystalize or metals 
cool and anneal are the principles upon which simulated annealing is based. 
At high temperature, liquid molecules move freely with respect to one 
another. As the liquid cools, this mobility is lost. Atoms line up and form a 
pure crystal that is at a minimum energy level. As the system cools slowly 
nature finds the minimum energy state (Flannery, 1984). Examining 
simulated annealing in non-physical terms, a comparison is made to the 


concept of local optimization or iterative improvement. Local optimization 
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energv states the probabilitv for making an uphill move still exists. As 
indicated in Figure 5 above, uphill moves allow the algorithm to leave a poor 
local solution (point A or point B) and reach a better solution in the vicinitv 
of point C. This general scheme of always taking a downhill step while 
occasionally taking an uphill step is known as the Metroplis algorithm, 
named after Metroplis, the scientist, who with his coworkers first investigated 
simulated annealing in 1953 (Press, 1984). 

The choice of a probability function to determine if an uphill movement 
is allowed is an important consideration. At each step of the simulated 
annealing algorithm a new state is constructed based on the current state. 
This new state is constructed by randomly displacing or adjusting a randomly 
selected element. If this new state has a lower cost than the current state, the 
new state is accepted as the current state. If the new state has a higher cost 


than the current state, the new state is accepted with the probability: 


exp(-Ae/KT). 


This probability function is known as the Boltzman probability 
distribution where: 
Ae = difference in cost between new state and current state 
k = Boltzman's constant of nature relating temperature to energy 
T = Current Temperature 
A characteristic of this probability function is that at very high 
temperatures every new state has an almost even chance of being accepted as 
the current state. At low temperatures the states with a lower cost have a 


higher probability of being accepted as the current state. 
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The annealing schedule sets after how manv random changes in the 
configuration is each downward step in T taken, and how large that step is. 
The range of the annealing temperature and the value of the annealing 
schedule are normallv established from trial and error experimentation 


(Flannerv, 1984). 
A pseudocode representation of the simulated annealing algorithm based 


on the algorithm proposed in (Johnson, 1989) follows: 


BEGIN 

GET AN INITIAL SOLUTION 

SET INITIAL TEMPERATURE T > 0 

WHILE T > 0 LOOP 

FOR I IN 1..L LOOP 
GENERATE A NEW SOLUTION 
Ae = E(NEW SOLUTION) - E(CURRENT SOLUTION) 
IF Ae <= 0 THEN 
CURRENT SOLUTION := NEW SOLUTION 


ELSE 
CURRENT SOLUTION := NEW SOLUTION 
WITH PROBABILITY exp(-Ae/T) 
END IF 
END LOOP 
ADJUST TEMPERATURE (T = rT) 
END LOOP 
END 
WHERE T = TEMPERATURE 


r = COOLING FACTOR 
L = NUMBER OF TRIALS TO PERFORM AT EACH TEMPERATURE 
Ae= DIFFERENCE IN COSTS BETWEEN TWO SOLUTIONS 


The choice of values for T, r, and L have a significant impact on the 
annealing schedule. The higher the initial temperature, the higher the 
cooling factor, and the larger the number of trials at each temperature result 
in more solutions being examined in order to find an optimum solution. 
The goal in choosing these parameters is to pick them so that a sufficient but 
not excessive number of solutions are examined. These values are normally 


chosen arbitrarily and adjusted through experimentation. The next section of 
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The goal of the hard real-time scheduler is to find a feasible schedule for 
the operators, not the optimum schedule. This means that simulated 
annealing can be terminated as soon as a feasible schedule is found. Both 
loops of the annealing algorithm are modified so that if a feasible schedule is 
found, the loop condition for both loops is satisfied and annealing is 
terminated. This means that when each iterative solution is tested, it is 
examined to see if it is a feasible solution. The next section describes what a 
feasible solution is. If the current schedule is feasible, boolean flags are set so 


that both loop conditions of the algorithm are satisfied. 


Old Ordering 


OP 1 
OP 2 
OP 3 
OP 4 





Figure 6. Reordering of Operators Preserving Precedence 
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Figure 6. Reordering of Operators Preserving Precedence 
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The proposed schedule must also be examined to check that the finish 
time of the last operator in the schedule does not exceed the harmonic block 
length. The concept of harmonic block length is covered in (Kilic, 1989). The 
basic idea is that a schedule is developed to fit inside a harmonic block. The 
length of the harmonic block is the greatest common multiple of the periods 
of all operators to be scheduled. Once a schedule is developed that fits within 
the harmonic block, subsequent copies of the block can be made to maintain 
the hard real-time schedule. Each proposed schedule is examined to insure 
that the schedule does not exceed the harmonic block length. If a schedule 
does exceed the harmonic block length, the schedule is not valid since 
subsequent copies of the schedule will violate the hard real-time timing 
constraints. 

If a schedule is a examined and all timing constraints are satisfied and the 
harmonic block length is not violated then a feasible schedule exists. At this 
point the simulated annealing algorithm is terminated and the feasible 


schedule is returned to CAPS. 


E. METHOD FOR PRODUCING A FEASIBLE SCHEDULE FOR A 
PROPOSED REAL-TIME SYSTEM 


The simulated annealing algorithm uses a step by step method to find a 
feasible solution. These steps include developing an initial solution, testing 
the initial and subsequent solutions, and adjusting the solution while 
guaranteeing that operator precedence is maintained. The simulated 
annealing algorithm is a heuristic (or approximate) approach to solving the 
scheduling problem for hard real-time systems. It does not guarantee to find 


a valid solution even if one exists. The goal of this thesis is to develop an 
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schedule as possible while maintaining precedence. Figure 8 demonstrates 
the annealing that occurs. Each operator ahead of the operator in question is 
examined to determine if it is a parent of the operator that violated its timing 
constraints. The operator continues to move up the schedule until we come 
to its parent. At this point we insert the operator in question after its parent. 
Each operator in the new schedule begins at its lower bound or immediatelv 
after the preceding operator, which ever is greater. This new schedule is then 


examined to determine what its cost is and if it is in fact a feasible schedule. 


Old Schedule Annealing New Schedule 


OP_1 OP_1 OP_1 
OP_2 OP_2 OP_2 
OP_3 OP3«w OP 5 
OP 4 OP 4 OP 3 
M cu Is parent? No OP 4 


Is parent? No OP 6 


Is parent? No 


OP 5 

OP 6 TS Operator 
that misses 
deadline 





Figure 8. Use of Annealing to Modify a Schedule 


If the new schedule has a positive cost that is lower than that of the 
current schedule, this new schedule is adopted and annealing continues. If 
the new schedule is costlier than the current schedule, a random choice is 
made whether to accept the new schedule with its higher cost of keep the 
current schedule. This choice is made in accordance with the annealing 
function, which takes into account the current temperature of the system and 
the difference in cost between the current solution and the new solution. The 


choice of accepting the new solution with a higher cost over the current 
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IV. IMPLEMENTATION OF THE STATIC SCHEDULER 


A. OBSERVATIONS 

The previous implementation of the static scheduler, although 
functional, does not perform scheduling in the most efficient manner, nor 
does it handle all tvpes of input. During the development of the new 
scheduling algorithm problems were identified and corrected in several of the 
existing packages, which are part of the static scheduler. Development of 
more efficient data structures resulted in faster execution of all scheduling 
algorithms and eliminated the requirement for cumbersome input/output 
between the various components of the static scheduler. 

The modification of existing packages and the development of new data 
structures greatly improved the performance of the new static scheduler 
while increasing modularity and simplifying the code of the various 
scheduling algorithms. The implementation of additional scheduling 
algorithms in the future will become a simpler task because of the work done 


in this thesis. 


B. MODIFICATIONS TO EXISTING PACKAGES 

Four packages that made up the static scheduler underwent modification 
in order to correct errors, increase functionality and improve performance. 
These four packages are the generic package SEQUENCES, which contained 
all the linked list routines, the TOPOLOGICAL_SORTER package, the 
FILE_PROCESSOR package, and the FILES package, which contained all of the 


global variables and data structures used by the static scheduler. 
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traverses a linked list freeing each node in that list. The second COPY LIST, 
allows the contents of one list to be copied into another list. This procedure 
will work with lists of the same or different lengths. The need for these two 
routines to improve memory management came about as a result of the 
development of the simulated annealing algorithm. Since this algorithm 
repeatedly generates new schedules, a computer system's memory would 
rapidly fill to capacity if discarded schedules were not reclaimed for their 


memory. 


before 


Pointer to 





Figure 10. Effect of the INSERT_NEXT Linked List Routine 


2. TOPOLOGICAL_SORTER 
The original topological sorter only worked when the input was 
received in a certain order. True topological orderings were not found. This 
sorter did not handle cases of multiple data links between operators. The 
sorter also required numerous traversals of various linked lists in order to 


accomplish a topological ordering of operators. 
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The new TOPOLOGICAL SORTER (T SORT) is a simpler and faster 
implementation of the topological ordering algorithm. It uses an arrav that is 
initialized to the in-degree of each operator. The new scheduler alwavs 
augments the given precedence graph with a dummv start node. This 
dummv start node has in-degree zero and is connected to all the operators 
with in-degree zero in the original precedence graph. The dummy start node 
is the only operator in the queue of operators to be processed initially. We 
remove the operator v from the head of the queue and place it in the 
precedence list (topological ordering). The in-degree value of each of v's 
children is decremented by one. Once an operator has an in-degree value of 
zero in the array the operator is placed at the end of the queue of those 
operators waiting to be processed. As each operator is processed it is removed 
from the queue and placed in the precedence list. This process continues 
until the queue is empty. The new topological sort can handle input in any 
order. 

3. FILE PROCESSOR 

This package, which processed the initial input and tested the input 
to determine if a the operators could be scheduled on a single processor 
svstem, now oniv tests the input and calculates periods for the non-periodic 
operators. This package is renamed PROCESSOR. Processing of the input 
now occurs in the packages FRONT END and NEW DATA STRUCTURES. 

4. Files 

The original FILES package contained the definitions of all the tvpes, 

instantiation of all the generic packages, and global variables used bv the static 


scheduler. The new package contains the same tvpe of information. This new 
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package is named DATA. Since the data structures used by the static 


scheduler are different, the new package reflects these changes. 


C. PACKAGES REMOVED FROM THE STATIC SCHEDULER 

During development of the new algorithm the existing data structures 
were examined. In addition to modifying several packages to improve their 
performance, several packages were eliminated because they were inefficient 
in their execution and thus were replaced by new packages. The removed 
packages are DIGRAPH, the HARMONIC_BLOCK_BUILDER scheduling 
algorithm, and OPERATOR_SCHEDULER. 

The instantiation of the generic package GRAPHS resulted in the package 
DIGRAPH, which was a linked list representation of the operators and their 
precedence relationships. This package, once created, did not require any 
changes throughout the execution of the static scheduler. Using linked lists 
to represent graphs with their associated parent-child relationships is very 
inefficient. Numerous linked list traversals were required in order to 
determine the parents or children of a specific operator. The graph structure 
was not internal to this package but was passed as a parameter from procedure 
to procedure within the static scheduler increasing the input/output 
requirements. Procedures also existed within this package allowing for the 
removal and addition of nodes and edges in the graph. This could result in 
the unintentional removal or addition of information or changes to the 
relationships between operators. The generic package GRAPHS has been 
replaced bv a new generic package NEW DATA STRUCTURES which is 


described in detail in the next section. 
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The HARMONIC_BLOCK_BUILDER scheduling algorithm is 
incorporated into the simulated annealing scheduling algorithm. The 
HARMONIC_BLOCK_BUILDER algorithm is used to develop the initial 
solution. If all the timing constraints are satisfied, simulated annealing does 
not occur since a legal schedule exists and the static scheduler terminates. 

The OPERATOR_SCHEDULER package, which contained the routines 
TEST_DATA, the HARMONIC_BLOCK_BUILDER, EARLIEST_START, and 
EARLIEST_DEADLINE algorithms, is removed and replaced by the 
SCHEDULER package. The procedure TEST_DATA is moved to the package 
FRONT_END. Correct implementations of the EARLIEST_START and 
EARLIEST_DEADLINE scheduling algorithms that make use of the new 
packages and data structures are contained in the package SCHEDULER. 


D. NEW PACKAGES AND DATA STRUCTURES 

Several new packages and data structures are contained in the new 
version of the static scheduler. These modifications improve performance 
and correctness, streamline input/output, and simplify the static scheduler. 
These new packages are FRONT_END, NEW_DATA_STRUCTURES, 
PRIORITY QUEUE, SCHEDULER, and ANNEAL. 

1. FRONT_END 

This package contains the procedures PRODUCE_OP_LIST and 

TEST_DATA. The procedure PRODUCE_OP_LIST reads the text input file 
ATOMIC.INFO. Depending on the keywords, which are declared as constants, 
the procedure separates the information in the file and stores the time critical 


operator information in a linked list that is used by the package 
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NEW DATA STRUCTURES. This procedure also produce a count of the 
number of operators to be scheduled. 

The procedure TEST DATA, described in detail and implemented in 
(Janson, 1988) is also contained in this package. This allows the input to be 
examined as soon as a linked list of operators is established so that system 
resources are not wasted if a feasible schedule is not possible for a given input. 

The new representation of the graph NEW GRAPH, is instantiated 
from the generic package NEW DATA STRUCTURES, in the package 
FRONT END. This allows for visibility of NEW GRAPH by the rest of the 
packages within the static scheduler. 

2. NEW DATA, STRUCTURES 

This generic package replaces the generic package GRAPHS. It 
represents an acyclic graph structure of operators of the hard real-time system 
in a simpler and easily accessible data structure. The new graph is a record 
that consists of two entries, OP ARRAY and OP MATRIX (see Figure 11). 
Unlike the old graphical representation all information about the operators; 
i.e their name, period, maximum execution time, etc. as well as their parent- 
child relationships only exist within this package. All relevant information 
about the operators that is required by the static scheduler is accessible by way 
of procedures and functions that are instantiated within the package and 
visible outside of it. 

Since the operator information does not change once the new graph 
is created, the decision was made to streamline this data structure. Using the 


Ada principle of information hiding, the graph structure and its contents are 


private so that this information cannot inadvertentiv be changed. This was 


not the case with the old graph structure. 


OP ARRAV 


Figure 11. Graph Structure 


GRAPH 


The generic package NEW DATA STRUCTURES is instantiated in 
the declarative part of the package FRONT END. However, OP ARRAX and 
OP MATRIX cannot be instantiated at this point because the number of 
operators to be scheduled is not known until ATOMIC.INFO is processed. By 
once again using the principles of Ada this is possible bv creating the record 
structure called GRAPH and declaring a pointer tvpe to this data structure. 
Once the number of operators to be scheduled is known the Ada allocator 
'new' is used to create an instance of GRAPH that contains the proper size 
OP ARRAX and OP MATRIX. This allows for efficient use of memorv. 

The data structure OP_ARRAY contains all relevant information 
about the operators. Once the operators are stored in the array they are 
identified by their index position in the array, which are integers. This allows 
for immediate access of all relevant operator information instead of having to 


traverse a linked list in order to find the desired operator. Identifying 
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operators bv their index position as opposed to their name reduces the storage 
required for operator identification throughout the static scheduler. 

The data structure OP MATRIX, which is a two dimensional arrav, 
greatlv speeds up execution of the static scheduler. In the old graph data 
structure numerous linked lists traversals were required in order to 
determine the parent-child relationships of operators. The new graph data 
structure, illustrated in Figure 13, streamlines the execution of this 
requirement. Each operator has a row and column in the matrix. Each cell in 
the matrix has two entries, one for a parent operator and one for a child 
operator. The diagonal cells [i,i] in the matrix act as header nodes for two 
circularly linked lists, one containing the parents of node i in the graph, and 
the other containing the children of node i. For all i/=j, the child operator 
(respectively parent operator) field of the ij entry is -1 if OP, is not a child 
(respectively parent) of OP... Otherwise, the child operator (respectively parent 
operator) field will contain the index number of the next child (respectively 
parent) in the circular linked list. For example, using Figures 13 anad 14, the 
children of Op 2 can be retrieved as follows: starting at cell [2,2] retrieve the 
value 5 from the corresponding child operator field. Moving to cell [2,5], 
retrieve the value 6 from the child position. Moving to cell [2,6] we see that 
there is a value of 2 in the child position, returning us back to the starting cell. 
At this point we know OP 2 has no more children. A similar routine is used 
to identify an operators parent's, only moves are made column wise as 
opposed to row wise. To check a parent-child relationship we can go right to 
the cell in question. If the value of the appropriate field is not -1, then a 


relationship exists. 
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Figure 14. Matrix Representation of Graph 


3. PRIORITY QUEUE 
This generic package is used by the earliest start and earliest deadline 
scheduling algorithms. During instantiation of this package three parameters 
are passed in to the generic template. The first is the type of element that is to 
be placed in the priority queue. The second is the type of the value used to 
order this priority queue. The third is the function used to order the priority 
queue. By using a priority queue the code for both the earliest start and 
earliest deadline algorithms is simplified. Under the Ada principle of code 
reusability, the generic priority queue package is a reusable software 
component that has a wide range of uses. 
4. Anneal 
This package contains the code for the new scheduling algorithm that 
is described in detail in Chapter III of this thesis. It contains all the necessary 


procedures and functions required to perform simulated annealing. 
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E. DESCRIPTION OF THE NEW STATIC SCHEDULER 

The new implementation of the static scheduler still takes the same 
input, ATOMIC.INFO and produces the same output, the Ada textfile SS.a. 
Figure 15 shows the dataflow of the new static scheduler. As illustrated in 
Figure 15, once the input is stored in the new data structure, the requirement 
for cumbersome input/output is removed. All necessary information is 
accessible through the package NEW_DATA_STRUCTURE. The new static 
scheduler accomplishes the same functions as the old static scheduler, but it 


does so in a more efficient, simplified, and correct manner. 
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Figure 15. Data Flow Diagram of Static Schedule 
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V. EVALUATION OF THE NEW ALGORITHM 


A. IMPROVEMENTS IN PERFORMANCE OF THE NEW ALGORITHM 
OVER PREVIOUS ALGORITHMS 


The simulated annealing scheduling algorithm starts with an initial 
solution that satisfies the precedence constraints of the hard real-time system, 
and attempts to find a feasible solution that satisfies the system timing 
constraints. The simulated annealing algorithm is not intended to run faster 
than either the earliest start or earliest deadline scheduling algorithm. It is 
intended to find feasible schedules that cannot be found by the earliest start or 
earliest deadline algorithms and to serve as an alternative to the more costly 
branch and bound and exhaustive enumeration scheduling algorithms. 
Based on the initial testing results simulated annealing accomplishes this 
goal. 

The performance and results of both the earliest start and earliest 
deadline scheduling algorithm improved as a result of the changes 
implemented in the static scheduler. These changes, discussed in detail in 
Chapter IV of this thesis, resulted in a rewriting of both of these algorithms. 
These algorithms now find correct solutions for cases that were not solved in 
the previous version of the static scheduler. In particular, the algorithm does 
not output incorrect schedules that exceed the harmonic block length, which 
they did in the previous version of the static scheduler. 

Any new scheduling algorithm that is implemented in the static 


scheduler should utilize the packages and the data structures that were 
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implemented as a result of this thesis. These data structures are efficient and 


do not require large amounts of memorv. 


B. EXAMINATION OF THE SIMULATED ANNEALING ALGORITHM ON 
HARD REAL-TIME SYSTEM PROBLEMS 


The algorithm's initial performance in handling hard real-time system 
problems is satisfactory. Two test cases are presented in this thesis and the 
simulated annealing algorithm was able to find a feasible solution when both 
earliest start and earliest deadline scheduling algorithms failed to find a 
feasible solution. Simulated annealing was not costly time wise when it came 
to finding these solutions. This indicates that the parameters chosen for the 
simulated annealing scheduling algorithm (i.e. freezing temperature, cooling 
factor, the number of trials at each temperature) are satisfactory choices. 

The first case consisted of eight operators. The input file and the 
precedence graph are included in Appendix A of this thesis and the results are 
presented in Table 1 below. This case was relatively simple in that there was a 
single starting node and there was not a wide variance in periods between the 
various operators. Due to the tight timing constraints both earliest start and 
earliest deadline were unable to find a solution. Simulated annealing, on the 
other hand, quickly found a feasible solution. By starting with an initial 
solution that did not satisfy the hard real-time systems timing constraints, 
simulated annealing adjusted the operators while maintaining operator 
precedence and quickly found a feasible solution. The solution satisfied all 


timing constraints, including the one failed by earliest start and earliest 
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TABLE 1. RESULTS OF THE FIRST TEST CASE 


OPERATOR 
DUMMY START NODE 
OP 1 
OP 4 
OP 3 
OP 7 
OP 2 
OP 5 
OP 1 
OP 6 
OP 8 
OP 1 
OP 2 
OP 5 
OP 6 
OP 8 


OPERATOR 


DUMMY START NODE 


OP 1 
OP 4 
OP 3 
OP 7 
OP 2 
OP 5 
OP 1 
OP 6 
OP 8 
OP_1 
OP 2 
OP 5 
OP 8 
OP 6 


OPERATOR 
DUMMY START NODE 
OP 1 

OP 4 
OP 3 

OP 7 

OP 2 

OP 5 

OP 6 
OP 8 
OP 1 
OP 1 

OP 2 

OP 5 

OP 6 

OP 8 


0 

0 
2000 
3000 
8000 
9000 
10000 
13000 
15000 
16000 
20000 
24000 
25000 
30000 
31000 


START TIME 


0 

0 
2000 
3000 
8000 
9000 
10000 
13000 
15000 
16000 
20000 
24000 
25000 
3.1000 
32000 


START TIME 


0 

0 
2000 
3000 
8000 
9000 
10000 
13000 
14000 
15000 
20000 
24000 
25000 
28000 
29000 


EARLIEST START 
START TIME STOP TIME 


0 
2000 
3000 
8000 
9000 

10000 
13000 
15090 
16000 
17000 
22000 
25000 
28000 
31000 
32000 


LOWER 
30010 


20000 
24000 
25000 
30000 
31000 


UPPER 


ORDO OOT OTOLO OFO OTORO O O G 


EARLIEST DEADLINE 


STOPZTIME 


0 
2000 
3000 
8000 
9000 

10000 
13000 
15000 
16000 
17000 
22000 
25000 
28000 
32000 
33000 


STOP TIME 


0 
2000 
3000 
8000 
9000 

10000 
13000 
14000 
15000 
17000 
22000 
25000 
28000 
29000 
30000 


LOWER 
30010 
0 


OS O ORE 


10000 

0 

0 
20000 
24000 
25000 
31000 
30000 


UPPER 


© O OIO O O 


17000 

0 

0 
27000 
33000 
33000 
40000 
41000 


SIMULATED ANNEALING 
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LOWER 
30010 
0 
2000 
3000 
8000 
9000 
10000 
13000 
14000 
10000 
20000 
24000 
25000 
28000 
29000 


UPPER 
0 
7000 
16000 
13000 
25000 
18000 
18000 
24000 
23000 
17000 
27000 
33000 
33000 
39000 
38000 


« Violate Harmonic 
— Block Length 


— Violate Harmonic 
— Block Length 


deadline, because thev exceed the harmonic block length. The previous 
version of the static scheduler would have output these schedules as correct 
schedules, even though thev are not correct. 

The second test case is based on the functional specifications of the el 
work station described in (Anderson, 1990) and implemented in Coskun, 
1990). The input file and precedence graph are presented in Appendix B of 
this thesis and the results are presented in Table 2. This case is more 
complicated than the first test case. It consists of 19 time critical operators. 
There is no specific starting operator. Any one of five operators may begin 
execution at the start of the harmonic block. There is a variance in periods 
between the various operators. The precedence relationships in this example 
are more complicated than the first case. As in the first case, due to the tight 
timing constraints, earliest start and earliest deadline fail to find a feasible 
schedule. Simulated annealing, however, is able to rapidly find a feasible 
schedule. 

These two test cases indicate that simulated annealing shows promising 
results in solving the hard real-time scheduling problem. It appears that 
simulated annealing will perform well as a scheduling tool when both 
earliest start and earliest deadline fail. The cost of using simulated annealing 
is low enough for it to be used before trying a more costly enumeration 


algorithm. 


TABLE2. RESULTS OF THE SECOND TEST CASE 
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START TIME STOP TIME 
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WEAPONS SYSTEMS 
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PREPARE SENSOR TRACK 
FILTER SENSOR TRACKS 
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PREPARE PERIODIC REPORT 
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WEAPONS INTERFACE 

CREATE POSITION DATA 
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MAKE ROUTING 
FORWARD FOR TRANSMISSION 
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COMMS LINKS 

PARSE INPUT FILE 
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EXTRACT TRACKS 

FILTER COMMS TRACKS 
WEAPONS SYSTEMS 
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TABLE 2. RESULTS OF THE SECOND TEST CASE (CONTINUED) 


MONITOR OWNSHIP POSITION 
FILTER SENSOR TRACKS 

ADD SENSOR TRACK 

PREPARE PERIODIC REPORT 
WEAPONS SYSTEMS 

WEAPONS INTERFACE 
CREATE_POSITION_DATA 
MAKE ROUTING 

MONITOR OWNSHIP POSITION 
FORWARD FOR TRANSMISSION 
CONVERT TO TEXT FILE 
COMMS LINKS 

PARSE INPUT FILE 
DECIDE FOR ARCHIVING 
EXTRACT TRACKS 


FILTER COMMS TRACKS 
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EARLIEST DEADLINE 


THE BEST SCHEDULE FOLLOWS: 
START TIME STOP TIME 


OPERATOR 
DUMMY START NODE 
WEAPONS SYSTEMS 

WEAPONS INTERFACE 

CREATE POSITION DATA 
MONITOR OWNSHIP POSITION 
CREATE SENSOR DATA 
ANALYZE SENSOR DATA 
PREPARE SENSOR TRACK 
FILTER SENSOR TRACKS 

ADD SENSOR TRACK 
PREPARE PERIODIC REPORT 
CREATE POSITION DATA 
WEAPONS SYSTEMS 

WEAPONS INTERFACE 
MONITOR OWNSHIP POSITION 
MAKE ROUTING _ 
FORWARD FOR TRANSMISSION 
CONVERT TO TEXT FILE 
COMMS LINKS 

PARSE INPUT FILE 
DECIDE FOR ARCHIVING 
EXTRACT TRACKS 

FILTER COMMS TRACKS 

ADD COMMS TRACK 

CREATE POSITION DATA 
WEAPONS SYSTEMS 

WEAPONS INTERFACE 
MONITOR OWNSHIP POSITION 
CREATE POSITION DATA 
WEAPONS SYSTEMS 

WEAPONS INTERFACE 
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CREATE POSITION DATA 
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ANALYZE SENSOR DATA 
CREATE SENSOR DATA 
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TABLE2. RESULTS OF THE SECOND TEST CASE (CONTINUED) 


MONITOR OWNSHIP POSITION 
PREPARE SENSOR TRACK 
FILTER SENSOR TRACKS 

ADD SENSOR TRACK 
PREPARE PERIODIC REPORT 
CREATE POSITION DATA 
WEAPONS SXSTEMS 

WEAPONS INTERFACE 

MAKE ROUTING 

MONITOR OWNSHIP POSITION 
FORWARD FOR TRANSMISSION 
CONVERT TO TEXT FILE 
PARSE INPUT FILE 

COMMS LINKS 

FILTER COMMS TRACKS 
DECIDE FOR ARCHIVING 
EXTRACT TRACKS 

ADD COMMS TRACK 

CREATE POSITION DATA 
WEAPONS SYSTEMS i 
WEAPONS INTERFACE 
MONITOR OWNSHIP POSITION 
ANALYZE SENSOR DATA 
CREATE SENSOR DATA 
PREPARE SENSOR TRACK 
FILTER SENSOR TRACKS 
ADD SENSOR TRACK 
PREPARE PERIODIC REPORT 
MAKE ROUTING 
FORWARD FOR TRANSMISSION 
CONVERT TO TEXT FILE 
PARSE INPUT FILE 

COMMS LINKS 
FILTER COMMS TRACKS 
DECIDE FOR ARCHIVING 
EXTRACT TRACKS 

ADD COMMS TRACK 


OPERATOR 

DUMMY START NODE 

CREATE POSITION DATA 
CREATE SENSOR DATA 
WEAPONS SYSTEMS 

ANALYZE SENSOR DATA 
COMMS LINKS 

WEAPONS INTERFACE 
MONITOR OWNSHIP POSITION 
PREPARE SENSOR TRACK 
FILTER SENSOR TRACKS 

ADD SENSOR TRACK 
PREPARE PERIODIC REPORT 
MAKE ROUTING 

WEAPONS SYSTEMS 
FORWARD FOR TRANSMISSION 
CONVERT TO TEXT FILE 
PARSE INPUT FILE 
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TABLE 2. RESULTS OF THE SECOND TEST CASE (CONTINUED) 


WEAPONS INTERFACE 
DECIDE FOR ARCHIVING 
EXTRACT TRACKS 

FILTER COMMS TRACKS 

ADD COMMS TRACK 

CREATE POSITION DATA 
MONITOR OWNSHIP POSITION 
CREATE POSITION DATA 
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PREPARE PERIODIC REPORT 
MAKE ROUTING 
FORWARD FOR TRANSMISSION 
CONVERT TO TEXT FILE 
CREATE POSITION DATA 
PARSE INPUT FILE 

WEAPONS SYSTEMS 
DECIDE FOR ARCHIVING 
EXTRACT TRACKS 

MONITOR OWNSHIP POSITION 
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VI. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

This thesis intended to develop a fast heuristic static scheduling 
algorithm. Simulated annealing was chosen as a basis for developing such a 
static scheduling algorithm because of the promising results simulated 
annealing demonstrated in solving other NP-Hard tvpe problems. Simulated 
annealing proved to be useful in solving optimization tvpe problems, and the 
development of hard real-time schedules is a subclass of this type of problem. 
The initial results of the simulated annealing static scheduling algorithm are 
promising. 

The major emphasis of this thesis was the development of a new static 
scheduling algorithm. In addition, this thesis built on previous research 
conducted during the development of the static scheduler. Modifications 
made to data structures and scheduling algorithms already implemented 
improved the performance of the static scheduler portion of CAPS. Several 
of the new packages and data structures are generic in nature and are 
available to be used beyond the scope of this thesis. This is possible due to the 
use of the Ada principles of modularity and software reusability. 

This thesis provides a running static scheduler that offers several choices 
of algorithms to use to find a feasible static schedule. Additional algorithms 
can be added to the static scheduler by using the data structures developed for 
this thesis. Additional research and development can continue to build on 


the work done in this thesis. 
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B. RECOMMENDATIONS 

As a result of this thesis, several weaknesses and areas requiring 
improvement within the static scheduler were identified. Many 
shortcomings were corrected, but others require further effort. Due to the 
complexity of the static scheduler, all problems identified were not corrected. 

In the current static scheduler, no differentiation is made between data 
flow and sampled stream data links. The performance and results of all 
scheduling algorithms would most likely improve if this information were 
utilized. 

The algorithm described and implemented in (Coskun, 1990) that 
calculates periodic equivalents for non-periodic time critical operators merits 
further examination. This algorithm is based on a theorem described in 
(Mok, 1985). Linked list data structures are used in the algorithm when arrays 
could suffice, saving execution time. Four separate linked list traversals are 
made in this algorithm. The performance and output of this indicate that it 
could be improved. 

The development of a PSDL data type implemented in Ada will simplify 
the package FRONT_END described in Chapter IV of this thesis. When this 
package is available (see S. Baromoglu, The Design and Implementation of an 
Expander for the Hierarchical Real-Time Constraints of Computer-Aided 
Prototyping System (CAPS), Master’s Thesis, Naval Postgraduate School, 
Monterey, CA, September 1991) the FRONT_END package should be 
modified to use the PSDL datatypes to provide input to the static scheduler. 
Once this occurs, the requirement for the ATOMIC.INFO file becomes 


unnecessary. 
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APPENDIX A. CASE1 TEST DATA 


ques = 
Ci Ls 
=e 


Precedence Graph, Test Case 1 


ATOMIC PERIOD ATOMIC PERIOD D H E 
OP 1 30000 OP 6 15000 OP 2 OP 4 OP 
MET WITHIN MET WITHIN 0 0 0 
2000 15000 1000 10000 OP 6 OP 6 OP 
PERIOD ATOMIC PERIOD LINK LINK LINK 

10000 OP 4 15000 A E I 

WITHIN MET WITHIN OP 1 OP 2 OP 4 

9000 1000 12000 0 0 0 

ATOMIC PERIOD ATOMIC OP 2 OP 5 OP 7 

OP 2 30000 OP 7 LINK LINK LINK 

MET WITHIN MET B F E 

1000 15000 1000 OP 1 OP 3 OP 5 

PERIOD ATOMIC PERIOD 0 0 0 

15000 OP 5 30000 OP 3 OP 5 OP 8 

WITHIN MET WITHIN LINK LINK LINK 

10000 3000 18000 G G K 

ATOMIC PERIOD ATOMIC OP 1 OP 3 OP 7 

OP 3 15000 OP 8 0 0 0 

MET WITHIN MET OP 4 OP 7 OP 8 

5000 11000 1000 LINK LINK LINK 
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APPENDIX B. CASE 2 TEST DATA 
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Precedence graph, Case 2 
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LINK 

COMMS TEXT FILE 
DECIDE FOR ARCHIVING 
500 
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0 
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FILTERED SENSOR TRACK 
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PREPARE PERIODIC REPORT 
LINK 

TERMINATE TRANS 

GET USER INPUTS 

0 
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APPENDIX C. MODIFIED PACKAGES 


with VSTRINGS; 
with SEQUENCES; 
with TEXT_IO; 


--* This package contains all of the global declarations and definitions 
--* of data structures that are necessary for the Static Scheduler 


package DATA is 


package VARSTRING is new VSTRINGS(80); 
use VARSTRING; 

subtype OPERATOR ID is VSTRING; 
subtype VALUE is NATURAL; 
subtype MET is VALUE; 

subtype MRT is VALUE; 

subtype MCP is VALUE; 

subtype PERIOD is VALUE; 

subtype WITHIN is VALUE; 

subtype STARTS is VALUE; 

subtype STOPS is VALUE; 

subtype LOWERS is VALUE; 

subtype UPPERS is VALUE; 


Exception Operator : OPERATOR ID; 
TEST VERIFIED : BOOLEAN := TRUE; 


type OPERATOR is 
record 
THE_OPERATOR_ID : OPERATOR ID; 
THE MET : MET := 0; 
THE_MRT : MRT := 0; 
THE_MCP : MCP := 0; 
THE_PERIOD : PERIOD := 0; 
THE WITHIN : WITHIN := 0; 
end record; 
package V LISTS is new SEQUENCES(OPERATOR); 
use V LISTS; 
type SCHEDULE_INPUTS is 
record 
THE_OPERATOR : INTEGER; 
THE START : STARTS :2 6; 
THE. STOP : STOPS := 0; 
THE_LOWER : LOWERS := 0; 
THE_UPPER : UPPERS := 0; 
THE_INSTANCE : INTEGER := 1; 
end record; 


package SCHEDULE INPUTS LIST is new SEQUENCES(SCHEDULE INPUTS); 
package NODE LIST is new SEQUENCES(INTEGER); 


NON CRITS 
AG OUTFILE : TEXT IO.FILE TYPE; 
INPUT : TEXT. IO.FILE MODE :: TEXT IO.IN FILE; 


OUTPUT : TEXT. IO.FILE MODE :- TEXT. IO.OUT. FILE; 


: TEXT JO.FILE TYPE; 
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Current Value 
New Word 
Cur Opt 


OP COUNT 
OP LIST 


end DATA; 


: VALUE; 
: VARSTRING.VSTRING; 
: OPERATOR; 


: INTEGER; 
: V_LISTS LIST; 
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generic 


tvpe ITEM is private; 
package SEQUENCES is 
tvpe NODE; 
tvpe LIST is access NODE; 
type NODE is 
record 
ELEMENT : ITEM; 
NEXT : LIST := null; 
PREVIOUS : LIST := null; --* (APR 91) 
end record; 


BAD VALUE : exception; 

function EQUAL(L1 : in LIST; L2 : in LIST) return BOOLEAN; 
procedure EMPTY(L : out LIST); 

function NON EMPTY(L : in LIST) return BOOLEAN; 

function SUBSEQUENCE(L1 : in LIST; L2 : in LIST) return BOOLEAN; 
function MEMBER(X : in ITEM; L : in LIST) retum BOOLEAN; 
procedure ADD(X : in ITEM; L: in out LIST); 

procedure REMOVE(X : in ITEM, L : in out LIST); 

procedure LIST REVERSE(LI : in LIST; L2 : in out LIST); 

edure FREE LIST(L: in out LIST); 

--* (JUL 91) Used by annealling and Exhaustive Enumeration to reclaim 
--* memory space that is no longer needed. 

procedure DUPLICATE(LI : in LIST; L2 : in out LIST); 

function LOOK4(X : in ITEM; L : in LIST) return LIST; 
procedure NEXT(L : in out LIST); 


procedure PRE VIOUS(L : in out LIST); 
--* (APR 91) Used by annealling 


function VALUE(L : in LIST) retum ITEM; 


procedure INSERT NEXT(X : in ITEM; L : in out LIST); 
--* (June 91) Item is inserted in proper position in list 


procedure REPLACE_ITEM(X : in ITEM; L: in out LIST); 
--* (JUL 91) Used by annealling 


procedure COPY_LIST(L1 : in LIST; L2: in out LIST); 
--* (JUL 91) Used by annealling to reclaim memory that is no longer needed 


end SEQUENCES; 
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with UNCHECKED DEALLOCATION; 
with TEXT_IO; --* test(Apr 91) 


package body SEQUENCES is 
pragma LINK_WITH(“heaplib.sparc.ar’’); 
procedure FREE is new UNCHECKED_DEALLOCATION(NODE, LIST); 


function NON EMPTVX(L : in LIST) return BOOLEAN is 
begin 
if L = null then 
retum FALSE; 
else 
return TRUE; 
end if; 
end NON EMPTY; 


procedure NEXT(L : in out LIST) is 
begin 
1f L /= null then 
L := L.NEXT; 
end if; 
end NEXT; 


procedure PREVIOUS(L : in out LIST) is --* This procedure was added 10 Apr 91 
begin --* to allow the annealling routine to 
if L /- null then --* traverse through Agenda in Reverse 
L := L.PREVIOUS; --* order. 


end if; 
end PREVIOUS; 


function LOOKK(X : in ITEM; L : in LIST) return LIST is 
LI- LISTELE, 

begin 

while NON_EMPTY (L1) loop 
if L1 ELEMENT = X then 

return L1; 

end if; 
NEXT(L]); 
end loop; 
return null; 

end LOOK4; 


procedure ADD(X : in ITEM; L : in out LIST) is 
-- ITEM IS ADDED TO THE HEAD OF THE LIST 
T : LIST :z new NODE; 
begin 
T.ELEMENT :2 X; 
T.PREVIOUS := null; --* (Apr 91) 
if L = null then 
T.NEXT :z null; 
else 
INEXT E 
L.PREVIOUS :z T; --* (Apr 91) 
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end if; 
= Is 
end ADD; 


function SUBSEQUENCE(LI : in LIST; L2 : in LIST) return BOOLEAN is 
IBSEIST = LI; 


begin 
while NON EMPTY(L) loo 
if not MEMBER(V ALUE(L), L2) then 
return FALSE; 
end if; 


UE; 
end SUBSEQUENCE; 
function EQUAL(L1 : in LIST; L2 : in LIST) return BOOLEAN is 


begin 
retum (SUBSEQUENCE(LI, L2) and SUBSEQUENCE(L2, L1)); 
end EQUAL; 


procedure EMPTY (L : out LIST) is 
begin 

L :z null; 
end EMPTY; 


function MEMBER(X : in ITEM, L : in LIST) retum BOOLEAN is 


begin 
FI LOOKA(X, L) /z null then 
return TRUE; 
else 
return FALSE; 
end if; 
end MEMBER; 


procedure REMOVE(X : in ITEM; L : in out LIST) is 
HEADER, --* ADDED ON 21 MAY 91 TO CORRECT ERROR 
CURR : LIST := L; 
PREV : LIST := null; 
E TEMP : LIST := null; 


gin 

while NON EMPTY(CURR) loop 

if VALUE(CURR) = X then 
TEMP :z CURR; 
NEXT(CURR); 
TEMP.PREVIOUS :z null; 
TEMP.NEXT :z null; 


FREE(TEMP); 
if PREV /= null then --* Operator we are removing is within list 
PREV NEXT :- CURR; 
else 
en := CURR; --* ADDED 21 MAY 91 TO CORRECT ERROR 
end if; 


if CURR /= null then --* List contains other items so we must relink 
CURR.PREVIOUS :z PREV;--* the list in reverse. --* (Apr 91) 
end if; 
else 
PREV := CURR; 
NEXT(CURR); 
end if; 
end loop; 


if NON EMPTY(HEADER) then --* How do we handle removal of first item in list? 
L := HEADER; --* ADDED 21 MAY 91 TO CORRECT ERROR 
else --* diagnostics 2 June 91 
L := CURR; --* diagnostics 2 June 91 
end if; --* diagnostics 2 June 91 
end REMOVE; 


procedure LIST REVERSE(LI : in LIST; L2 : in out LIST) is 
L : LIST := L1; 


begin 
EMPTY (L2); 
while NON_EMPTY (L) loop 
ADD(VALUE(L), L2); 
NEXT(L); 
end loop; 
end LIST REVERSE; 


procedure FREE LIST(L: in out LIST) is 
CURR: LIST := L; 
TEMP: LIST; 
begin 
while NON EMPTX(L) loop 
NEXT(CURR); 
if NON. EMPTV (CURR) then 
CURR.PREVIOUS := null; 
end if; 
L.NEXT := null; 
FREE(L); 
L:= CURR; 
end loop; 
end FREE_LIST; 


procedure DUPLICATE(L] : in LIST; L2 : in out LIST) is 
TEMP : LIST := null; 


Le LIST :=L 1; 
begin 
FREE_LIST(L2); 


while NON EMPTY(L) loop 
ADD(VALUE(L), TEMP); 
NEXT(L); 
end loop; 
LIST REVERSE(TEMP, L2); 
end DUPLICATE; 


function VALUE(L : in LIST) return ITEM is 


begin 
if NON EMPTY(L) then 
return LELEMENT; 
else 
raise BAD_VALUE; 
end if; 
end VALUE; 


procedure INSERT_NEXT(X : in ITEM; L: in out LIST) is 
T : LIST := new NODE; 

begin 

T.ELEMENT := X; 

if NON EMPTY(L) then 
if L NEXT /- null then 

L.NEXT.PREVIOUS := T; 

end if; 
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T.PREVIOUS :- L; 
T. NEXT :z L NEXT, 
L.NEXT :=T; 
end if; 
IT. 
end INSERT. NEXT; 


procedure REPLACE ITEM(X : in ITEM; L : in out LIST) is 
bepi 


gin 
L.ELEMENT := X; 
end REPLACE_ITEM; 


procedure COPY_LIST(L1 : in LIST; L2: in out LIST) is 


CURR: LIST := L1; 
HEAD: LIST := L2; 
TEMP: LIST; 
PREV: LIST; 


begin 
while NON_EMPTY(CURR) and NON_EMPTY (L2) loop 
L2.ELEMENT := VALUE(CURR); 
NEXT(CURR); 
PREV := L2; 
NEX T(L2); 


end loop; 
--* HANDLE CASE WHEN L2 IS LONGER THAN L1; 


if not NON EMPTY(CURR) and NON EMPTY(L2) then 
PREV.NEXT :z null; --* DISCONNECT EXCESS FROM L2 
while NON EMPTY(L2) loop 
TEMP :z L2; 
TEMP.PREVIOUS :z null; 
NEXT(L2); 
TEMP.NEXT :z null; 
FREE(TEMP); 
end loop; 
--* HANDLE CASE WHEN L1 IS LONGER THAN L2; 
elsif NON, EMPTY(CURR) and not NON EMPTY(12) then 
while NON _EMPTY(CURR) loop 
TEMP := new NODE; 
PREV.NEXT := TEMP; 
TEMP.ELEMENT := VALUE(CURR); 
TEMP.PRE VIOUS := PREV: 
PREV := TEMP; 
NEXT(CURR); 
end loop; 
end if; 
L2 := HEAD; 
end COPY_LIST; 


end SEQUENCES; 
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with TEXT. IO; 
with DATA; 
with SEQUENCES; 
with FRONT. END; use FRONT END; 
package TOP. SORT is 
procedure T SORT(PRECEDENCE LIST: in out DATA.NODE LIST.LIST; 
COUNT: in INTEGER); 
--* This procedure produces a topological sort of the operators that are in 
--* the NEW GRAPH structure. 
end TOP SORT; 
package body TOP. SORT is 


procedure T SORT(PRECEDENCE LIST  :inout DATA.NODE LIST.LIST; 
COUNT : in INTEGER) is 


package int io is new TEXT IO. integer io(integer); 
use int, 10; 


type DEGREES is array (0..COUNT) of INTEGER; 
IN DEGREE: DEGREES; --* Indegree Array used in sorting 
package QUEUES is new SEQUENCES(INTEGER); 


PARENT LIST : DATA.NODE_LIST.LIST; 
CHILD_LIST : DATA.NODE LIST.LIST; 
PARENT COUNT : INTEGER; 

CHILD COUNT : INTEGER; 

QUEUE : QUEUES.LIST; 

HEAD : QUEUES.LIST; 
REVERSED PREC LIST : DATA.NODE LIST.LIST; 

begin 


for OP in 1..COUNT loop 
FRONT END.NEW GRAPH.RETURN PARENT LIST(PARENT LIST, OP, PARENT COUNT); 
ER O := PARENT COUNT; 
end loop; 
QUEUES.ADD(0,QUEUE); --* BECAUSE OF THE USE OF A DUMMY START NODE THIS NODE 
--* WILL ALWAYS BE THE FIRST ELEMENT IN THE QUEUE WITH 
--* AN IN DEGREE OF ZERO. 
HEAD :z QUEUE; 
while QUEUES.NON EMPTY (QUEUE) loop 
FRONT END.NEW GRAPH.RETURN CHILD LIST(CHILD LIST, QUEUES.VALUE(HEAD), 
CHILD COUNT); 
while DATA.NODE LIST.NON EMPTY(CHILD LIST) loop 
IN DEGREE(DATA.NODE LIST.VALUE(CHILD - LIST): = 
IN_DEGREE(DATA.NODE_LIST.VALUE(CHILD_LIST)) - 1; 
if IN DEGREE(DATA.NODE LIST.VALUE(CHILD LIST))= 0 then 


esc .ADD(DATA.NODE . LIST.VALUE(CHILD LIST), QUEUE); 
end 
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DATA.NODE LIST.NEXT(CHILD LIST); 
end loop; 
DATA .NODE LIST.ADD(QUEUES.VALUE(HEAD), REVERSED PREC LIST); 
QUEUES.REMOVE(QUEUES.V ALUE(HEAD), QUEUE); 
HEAD := QUEUE; 
end loop; 


p; 
DATA.NODE LIST.LIST REVERSE(REVERSED PREC LIST, PRECEDENCE LIST); 
end T_SORT; 


end TOP_SORT; 


with DATA; use DATA; 

package PROCESSOR is 
procedure FIND PERIODS(OP LIST : in out V LISTS.LIST); 
procedure VALIDATE DATA (OP LIST : in out V. LISTS.LIST); 


NOT. FEASIBLE : exception; 
CRIT. OP LACKS MET : exception; 
MET NOT LESS THAN PERIOD : exception; 
MET NOT LESS THAN MRT : exception; 
MCP NOT LESS THAN MRT : exception; 
MCP LESS THAN MET : exception; 
MET IS GREATER THAN FINISH WITHIN : exception; 
SPORADIC OP LACKS MCP : exception; 
SPORADIC OP LACKS MRT : exception; 
PERIOD LESS THAN. FINISH. WITHIN : exception; 
end PROCESSOR; 


65 


with TEXT IO; 
with DATA; use DATA; 


package bodv PROCESSOR is 


procedure FIND PERIODS(OP LIST : in out V LISTS.LIST) is 


TARGET : V LISTS.LIST; 

N : NATURAL := 0; 

ie : FLOAT := 0.0; 

NEW_PERIOD : NATURAL := 0; 

OP : OPERATOR; 

C : FLOAT; 

FIRST : BOOLEAN := true; 

FOUND : BOOLEAN := false; 
FRACTION : NATURAL; 

FR GCD : NATURAL; 

LCM : NATURAL; 

UNIT : NATURAL; 

ALPHA : FLOAT; 

GCD : NATURAL; 

package I IO is new TEXT. IO.INTEGER IO(NATURAL); 
procedure CALCULATE NEW. PERIOD (O : in OPERATOR; 


NEW PERIOD : in out NATURAL ) is 
DIFFERENCE : NATURAL; 
re VALUE IO is new TEXT. IO.INTEGER, IOQNATURAL); 
gin 
DIFFERENCE := O.THE_MRT - O.THE_MET; 
if DIFFERENCE < O.THE MCP then 
NEW PERIOD := DIFFERENCE; 


else 
NEW PERIOD := O.THE MCP; 
end if; 


end CALCULATE NEW PERIOD; 


function FIND GCD (SMALL : in VALUE; LARGE : in VALUE) retum VALUE is 
REMAINDER : VALUE := SMALL: 


gin 
if LARGE mod SMALL 2 0 then 
return REMAINDER; 
else 
REMAINDER := FIND_GCD(LARGE mod SMALL, SMALL); 
retum REMAINDER; 
end if; 
end FIND_GCD; 


function FIND LCM (NUMBERI, NUMBER? : VALUE) return VALUE is 
begin 

retum(NUMBERI ' NUMBER2) / GCD; 
end FIND LCM; 


function REDUCE TO EVEN FRACTION( GCD, PERIOD : NATURAL) return NATURAL is 
N: NATURAL := GCD / PERIOD; 


begin 
if N * PERIOD = GCD then 
return N; 
else 
return N + 1; 
end if; 
end REDUCE. TO EVEN FRACTION; 


begin 
-- FIRST PASS 
-- Calculates the load factor for all periodic operators, and greatest common 
-- divisor of the periods of the periodic operators 
TARGET :- OP LIST; 
while V. LISTS.NON EMPTY(TARGET) loop 
OP :» V LISTS. VALUE(TARGET); 
if OP. THE MET - 0 then 
Exception Operator := OP.THE . OPERATOR ID; 
raise CRIT OP LACKS MET; 
elsif OP.THE, PERIOD /= 0 then -- a periodic operator 
L :=L + FLOAT(OP.THE MET)/FLOAT(OP.THE, PERIOD); 
if FIRST then 
GCD := OP.THE PERIOD; 
FIRST := false, 
else 
if GCD » OP.THE, PERIOD then 
GCD := FIND GCD(OP.THE PERIOD,GCD); 


else 
GCD := FIND GCD(GCD,OP.THE PERIOD); 
end if; 
end if; 


end if; 
V LISTS.NEXT(TARGET); 
end loop; 


-- SECOND PASS 

-- Finds the total number of sporadic operators (N) 

-- For the Pa opearators with user defined MRT or MCP values, calculates 
-- the undefined value of MCP or MRT with given MRT or MCP 

-- And finds the unit factor(UNIT) for the sporadic operators with user defined 
-- MCP or MRT with calculated periods less than GCD found above 


TARGET :- OP LIST; 
FIRST := true; 
while V_LISTS.NON_EMPTY(TARGET) loop 
OP := V_LISTS.VALUE(TARGET); 
if OP.THE, PERIOD = 0 then — a sporadic operator 
if OP.THE MCP /= 0 and OP.THE MRT 2 0 then 
OP.THE_MRT := OP.THE_MET + OP.THE_MCP; 
TARGET.ELEMENT.THE_MRT := OP.THE_MRT: 
elsif OP. THE_MCP = 0 and OP.THE_MRT /= 0 then 
OP.THE_MCP := OP.THE_MRT - OP.THE_MET: 
IE OEL aes := OP.THE_MCP; 
end if; 
if OP.THE_MCP /= O and OP.THE MRT /-0 then 
CALCULATE NEW PERIOD(OP,NEW PERIOD); 
if NEW T iniu « GCD then 


FOUND := 
FRACTION = = GCD/REDUCE | TO EVEN FRACTION(GCD,NEW PERIOD), 
if FIRST then 


FR GCD := FRACTION: 
LCM := FRACTION; 
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FIRST := false; 
else 
if FRACTION > FR_GCD then 
FR_GCD := FIND_GCD(FR_GCD, FRACTION); 


else 
FR GCD := FIND GCD(FRACTION,FR GCD); 
end if: 
LCM := FIND LCM(LCM,FRACTION); 
end 1f; 
end if; 
else 
N :=N+1; 
end if; 
end if; 
V_LISTS.NEXT(TARGET); 
end loop; 
if FOUND then 
UNIT := LCM; 


else 
UNIT :2 GCD; 
end if; 


-- THIRD PASS 

-- Calculates and writes the periods for the sporadic operators with user defined 

-- MCP or MRT by using the UNIT factor calculated above. Modifies the load factor 
-- L calculated in the first pass. Finds coefficient ALPHA. 


TARGET := OP_LIST; 
while V_LISTS.NON_EMPTY(TARGET) loop 
OP := V_LISTS. VALUE(TARGET); 
if OP.THE PERIOD = 0 then -- a sporadic operator 
if OP.THE_MRT /= 0 and OP.THE_MCP /= 0 then 
CALCULATE NEW PERIOD(OP,NEW PERIOD); 
NEW PERIOD := NEW PERIOD - NEW PERIOD mod UNIT; 
OP.THE PERIOD := NEW PERIOD; 
TEXT IO.PUT('New PERIOD for operator ''); 
VARSTRING.PUT(OP.THE OPERATOR ID); 
TEXT IO.PUT( is “‘); 
1 IO.PUT(NEW. PERIOD,1); 
TEXT IO.NEW LINE; 
TARGET.ELEMENT.THE PERIOD := OP.THE PERIOD; 
He L + FLOAT(OP.THE_MET)/FLOAT(NEW_PERIOD); 
en 
end if; 
V_LISTS.NEXT(TARGET); 
end loop; 


if L « 0.5 then 
EQS 


elsif L >= 0.5 andL < 1.0 then 
:= (1.0 + L) / 2.0; 

E 

raise NOT. FEASIBLE; 
end if; 
ALPHA := FLOAT(N)/(C - L) + 1.0; 
if ALPHA < 2.0 then 

ALPHA := 2.0; 
end if; 


-- FOURTH PASS 
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-- Calculates and writes the PERIOD, MRT, MCP values for the sporadic operators 
-- without user defined MCP or MRT values 


TARGET := OP_LIST; 
while V_LISTS NON ' EMPTV(TARGET) loop 
OP := V_LISTS.VALUE(TARGET); 
if OP.THE_PERIOD = O then -- a sporadic operator 
if OP.THE_MRT = 0 and OP.THE_MCP = 0 then 
OP.THE_MRT := NATURAL(ALPHA) * a Pe MET; 
OP.THE MCP :- OP.THE MRT-OP.THE ME 
if (OP.THE_MCP / UNIT) * UNIT /- OP.THE_ M 
OP.THE_PERIOD := OP.THE_MCP + UNIT - (OP.THE_MCP mod UNIT); 
else 
OP.THE_PERIOD := OP.THE_MCP; 
end if; 
TEXT IO.PUT(“New PERIOD for operator “); 
VARSTRING.PUT(OP.THE OPERATOR ID); 
TEXT. IO.PUT(" is *); 
I IO.PUT(OP.THE PERIOD,1); 
TEXT. IO.NEW LINE; 
end if; 
end if; 
TARGET.ELEMENT.THE PERIOD :z OP.THE PERIOD; 
TARGET.ELEMENT.THE_MRT := OP.THE_MRT; 
TARGET.ELEMENT.THE_MCP := OP.THE_MCP; 
V_LISTS.NEXT(TARGET); 


end loop; 
end FIND_PERIODS; 


procedure VALIDATE_DATA (OP_LIST: in out V_LISTS.LIST) is 


TARGET: V LISTS.LIST; 

package VAL IO is new TEXT. IO.INTEGER, IO(VALUE); 
begin 
TARGET :- OP LIST; 

while V. LISTS.NON. EMPTY(TARGET) loop 


-- ensure that there is no operator without an MET. 
if V LISTS. VALUE(TARGET).THE MET = 0 then 
Exception Operator :z V LISTS. VALUE(TARGET).THE OPERATOR ID; 
raise CRIT OP LACKS MET; 


end if; 
if V LISTS. VALUE(TARGET).THE PERIOD «- 0 then 
-- Check to ensure that MCP has a value for sporadic operators 
if V LISTS. VALUE(TARGET).THE MCP - 0 then 
Exception Operator :- V LISTS. VALUE(TARGET).THE, OPERATOR ID; 
raise SPORADIC OP LACKS MCP; 
elsif V LISTS.VALUE(TARGET).THE MET 2 
V_LISTS.VALUE(TARGET).THE_MCP then 
Exception_Operator := V_LISTS.VALUE(TARGET).THE_OPERATOR_ID; 
raise MCP_LESS_THAN_MET; 
end if; 
-- Check to ensure that MRT has a value for sporadic operators 
if V_LISTS.VALUE(TARGET).THE_MRT = 0 then 
Exception Operator :— V LISTS. VALUE(TARGET).THE OPERATOR ID; 
a SPORADIC_OP_LACKS_MRT; 
end if; 


-- Check to ensure that the MRT is greater than the MET. 
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if V LISTS. VALUE(TARGET).THE MET » V LISTS.VALUE(TARGET).THE MRT then 
Exception Operator :z V LISTS. VALUE(TARGET).THE OPERATOR ID; 
raise MET NOT LESS THAN MRT; 

end if; 


-- Guarantees that an operator can fire at least once 
-- before a response expected. 
if V LISTS. VALUE(TARGET).THE MCP » V LISTS. VALUE(TARGET).THE MRT then 
Exception Operator :z V LISTS. VALUE(TARGET).THE OPERATOR ID; 
puse MCP NOT LESS THAN MRT; 
end if; 


else 

-- Check to ensure that the PERIOD is greater than the MET. 

if V LISTS. VALUE(TARGET).THE MET 2 V. LISTS. VALUE(TARGET).THE PERIOD then 
Exception Operator := V. LISTS. VALUE(TARGET).THE, OPERATOR ID; 
Tx MET NOT LESS THAN PERIOD; 

end 


-- Check to ensure that the FINISH_WITHIN is parr than the MET. 
if V_LISTS.VALUE(TARGET).THE_WITHIN /= 0 then 
if V_LISTS.VALUE(TARGET).THE_MET » V. LISTS. VALUE(TARGET).THE, WITHIN then 
Exception Operator := V LISTS. VALUE(TARGET).THE OPERATOR ID; 
raise MET IS GREATER THAN FINISH WITHIN; 
elsif V LISTS. VALUE(TARGET).THE PERIOD « 
V LISTS. VALUE(TARGET).THE WITHIN then 
Exception Operator :- V LISTS .VALUE(TARGET).THE OPERATOR ID; 
raise PERIOD LESS THAN FINISH WITHIN; 
end if; 
end if; 


end if; 
V_LISTS.NEXT(TARGET); 


end loop; 
end VALIDATE DATA; 


end PROCESSOR; 
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APPENDIX D. NEW PACKAGES 


with TEXT IO; 
with DATA; use DATA; 


--* This package contains the specifications for a graph data structure that can 
--* represent an acyclic graph. Functions and procedures exist to access the 
--* information that is stored in the graph as well as to find out the relationships 
--* between vertices in the graph. 
generic 
package NEW_DATA_STRUCTURES is 

type GRAPH (SIZE : INTEGER) is limited private; 

type GRAPH_LINK is access GRAPH; 


THE_GRAPH : GRAPH LINK; 


procedure PRODUCE, OP. ARRAY (INFO LIST : in out V LISTS.LIST; 
COUNT : in INTEGER); 
--* Transfer operator info from linked list to array 


function OP POSITION (OP NAME : in VARSTRING.VSTRING; 
COUNT : in INTEGER) retum INTEGER; 
--* Given an operator name return the operator's position in the array 


procedure PRODUCE OP MATRIX (COUNT: in INTEGER); 
--* Create a Matrix to represent the acyclic graph of operator relationship 


function OP RETURN (OP POSITION: in INTEGER) retum OPERATOR; 
--* Given an operator’s position in the array, return the operator 


function IS_PARENT (OP_1 : in INTEGER, 
OP 2 : in INTEGER) retum BOOLEAN; 
--* Return true if OP_1 is a parent of OP_ 2 or if OP_ 1 is OP_2 
function IS_CHILD OE 1 : In INTEGER; 
P2 in INTEGER) return BOOLEAN; 
--* Retum true if OP_ i isa child of OP 2 or if OP. 1 is OP_2 
procedure RETURN PARENT LIST (PARENT LIST :inout NODE_LIST.LIST; 
OP : in INTEGER; 
COUNT : in out INTEGER); 


--* Return a list of all the parents of an operator 


procedure RETURN CHILD LIST (CHILD LIST : inout NODE LIST.LIST; 
OP : in INTEGER; 
COUNT : in out INTEGER); 

--* Return a list of all the children of an operator 


procedure FREE. GRAPH (A, GRAPH: in out GRAPH, LINK); 
--* Free the memory space used by the graph 
private 


type INFO ARRAY is array (INTEGER range <>) of OPERATOR; 
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tvpe MATRIX OP INFO is 
record 
PARENT  :INTEGER :- -1; 
CHILD : INTEGER :- -1; 
end record; 


type MATRIX is array (INTEGER range <>, INTEGER range <>) of MATRIX OP INFO; 
type GRAPH (SIZE : INTEGER) is 


record 
OP ARRAY : INFO ARRAY (0..SIZE); 
OP MATRIX : MATRIX(0..SIZE, 0..SIZE); 
end record; 


end NEW_DATA_STRUCTURES; 
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with UNCHECKED_DEALLOCATION; 
package body NEW DATA STRUCTURES is 
pragma LINK. WITH ('heaplib.sparc.ar'); 
procedure FREE is new UNCHECKED DEALLOCATION(GRAPH, GRAPH, LINK); 


package int io is new TEXT IO.integer io(integer);--put in for debugging 
use int 10; 


procedure PRODUCE OP ARRAY (INFO LIST : inout V LISTS.LIST; 
COUNT : in INTEGER) is 


HEAD : V LISTS.LIST := INFO LIST; 
function MAKE START NODE return OPERATOR is 
START OP : OPERATOR; 


begin 
START OP.THE OPERATOR ID := VARSTRING.VSTR('DUMMY START NODE”); 


START. OP.THE MET := 0; 


START OP.THE MRT:=0; 
START OP.THE MCP :=0; 
START OP.THE WITHIN := 0; 
retum START OP; 

end MAKE START NODE; 


begin 
for INDEX in reverse 1..COUNT loop 
THE GRAPH.OP ARRAY(INDEX) := V LISTS.VALUE(INFO LIST); 
V. LISTS.NEXT(INFO LIST); 
end loop; 
THE GRAPH.OP ARRAX(O) :: MAKE START NODE; 
V_LISTS.FREE_LIST(HEAD); --* THIS LIST IS NO LONGER NEEDED. 
end PRODUCE_OP_ARRAY; 


function OP POSITION (OP NAME :in VARSTRING.VSTRING; 
COUNT : in INTEGER) return INTEGER is 


--* This function is implemented now as a linear scan. Its performance 

--* can be improved by using a hashing function. If a hashing function 

--* is to be used, then the procedure PRODUCE OP ARRAY will also have 
--* to be modified if hashing is to be used. 17 July 91 


begin 
for INDEX in 1..COUNT loop 
if VARSTRING.EQUAL (OP NAME, 
THE GRAPH.OP. ARRAY(INDEX).THE OPERATOR ID) then 
return INDEX; 
end if; 
end loop; 
return -1; --* Operator is external since it is not in the array. 
end OP. POSITION; 
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procedure PRODUCE OP MATRIX (COUNT 


COLUMN, 

ROW, 

PARENT OP, 

CHILD OP : INTEGER, 


LINK 


: in INTEGER) is 


: constant VARSTRING.VSTRING := VARSTRING.VSTR( LINK"); 
procedure INITIALIZE (COUNT 


: in INTEGER; 
OP MATRIX 


: in out MATRIX) is 


gin 
for ROW in 0..COUNT loop 
for COLUMN in 0..COUNT loop 
if ROW = COLUMN then 
THE_GRAPH.OP_MATRIX(ROW,COLUMN).PARENT := ROW; 
THE_GRAPH.OP_MATRIX(ROW,COLUMN).CHILD := ROW; 
end if; 
end loop; 
end loop; 
end INITIALIZE; 


procedure INITIALIZE_START_NODE op 


: in INTEGER; 
MATRIX 


: in out MATRIX) is 
gin 
for INDEX in 0..COUNT loop 
if THE GRAPH.OP MATRIX(INDEX, INDEX).PARENT = DEN then 


THE GRAPH.OP MATRIX(INDEX INDEX).PARENT :- 


THE_GRAPH.OP_MATRIX(0,INDEX).CHILD := THE “GRAPH. OP_MATRIX(0,0).CHILD; 
THE_GRAPH.OP_MATRIX(0,0).CHILD := INDEX; 


ÜBERS OP MATRIX (OINDEX) PARENT :z INDEX; 
end 1 

end loop; 
end INITIALIZE_START_NODE; 


begin 

TEXT_IO.OPEN (AG OUTFILE, INPUT, 'atomic.info'); 

INITIALIZE(COUNT, THE GRAPH.OP MATRIX); 

VARSTRING.GET LINE (AG OUTFILE, New Word); 

while not TEXT IO.END OF FILE(AG OUTFILE) loop 

if VARSTRING.EQUAL (New Word LINK) then — NOH "LINK" 

TEXT. IO.SKIP LINE(AG OUTFILE); — skip LINK name 
VARSTRING.GET LINE(AG OUTFILE, New Word); 


PARENT OP := OP POSITION(New Word, DATA.OP COUNT); 
TEXT IO.SKIP LINE(AG. OUTFILE); 


VARSTRING.GET. LINE (AG OUTFILE, New. Word); 
CHILD OP:= OP POSITION(New Word, DATA.OP COUNT); 


-- when either starting node or ending node of a link is EXTERNAL 
-- the link information will not be added to the graph. Assuming 
-- that all external data coming in is ready at start time. 


if PARENT OP /=-1 and CHILD OP /= -1 then 
THE GRAPH.OP  MATRIX(PARENT OP,CHILD OP).CHILD :- 
THE GRAPH.OP MATRIX(PARENT. OP,PARENT. OP).CHILD; 
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THE GRAPH.OP MATRIX(PARENT OP,PARENT OP).CHILD := CHILD OP: 
THE GRAPH.OP MATRIX(PARENT OP,CHILD OP).PARENT := 
THE GRAPH.OP MATRIX(CHILD OP,CHILD OP).PARENT: 
THE GRAPH.OP MATRIX(CHILD OP,CHILD ' OPJ.PARENT := PARENT OP; 
end if; 
VARSTRING.GET LINE ( AG OUTFILE, New Word); 


else 
VARSTRING.GET LINE ( AG OUTFILE, New Word); — skip all other info 
end if; 
end loop; 
TEXT_IO.CLOSE (AG_OUTFILE); 
INITIALIZE START NODE(COUNT, THE GRAPH.OP MATRIX); 
end PRODUCE OP MATRIX; 


function OP. RETURN (OP. POSITION: in INTEGER) return OPERATOR is 
OP :OPERATOR; 


begin 
OP:= THE GRAPH.OP ARRAY(OP POSITION); 
retum OP; 
end OP RETURN; 
function IS PARENT (OP 1 :in INTEGER; 
OP_2 : in INTEGER) return BOOLEAN is 
--* Retum true if OP. 1 is a parent of OP_2 or if OP_1 is OP_2 
PARENT : BOOLEAN := false; 
begin 
if OP_1 = OP_2 then 
PARENT := true; 
elsif THE_GRAPH.OP_MATRIX(OP_1, OP 2).PARENT /= -1 then 
P :z true; 
end if; 
return PARENT; 
end IS_PARENT; 
function IS_CHILD (OP_1 : in INTEGER; 
OP_2 : in INTEGER) retum BOOLEAN is 


--* Retum true if OP_1 is a child of OP_2 or if OP_1 is OP_2 
CHILD : BOOLEAN := false; 


begin 
if OP. 1 2 OP 2 then 
CHILD := true; 
elsif THE _GRAPH -OP_MATRIX(OP_2, OP_1).CHILD /= -1 then 
CHILD := true; 
end if; 
return CHILD; 
end IS_CHILD; 
procedure RETURN_PARENT_LIST (PARENT_LIST : in out NODE LIST.LIST; 
OP : in INTEGER; 
COUNT : in out INTEGER) is 
ROW : INTEGER := OP; 
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begin 
COUNT := 0; 
while THE_GRAPH.OP_MATRIX(ROW, OP).PARENT /= OP loop 
NODE_LIST.ADD(THE_GRAPH.OP_MATRIX(ROW, OP).PARENT, PARENT_LIST); 
COUNT := COUNT + 1; 
ROW := THE_GRAPH.OP_MATRIX(ROW, OP).PARENT; 
end loop; 
end RETURN_PARENT_LIST; 


procedure RETURN_CHILD_LIST ane : in out NODE LIST.LIST; 
P R; 


: in INTEGE 
COUNT : in out INTEGER) i is 
COLUMN : INTEGER := OP; 
begin 
COUNT := 0; 


while THE GRAPH.OP MATRIX(OP, COLUMN).CHILD /= OP loop 
NODE LIST. nn GRAPH.OP_MATRIX(OP, COLUMN). CHILD, CHILD_LIST); 
COUNT := COUNT + 
COLUMN := THE "GRAPH. OP_MATRIX(OP, COLUMN).CHILD; 
end loop; 
end RETURN_CHILD_LIST; 


procedure FREE_GRAPH (A_GRAPH: in out GRAPH_LINK) is 
begin 

FREE(A_GRAPH); 
end FREE_GRAPH; 


end NEW_DATA_STRUCTURES; 
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with TEXT IO; 
with DATA; use DATA; 
with NEW DATA STRUCTURES; 


package FRONT END is 


procedure PRODUCE OP LIST(INFO LIST : in out V LISTS.LIST; 
COUNT : in out INTEGER); 
--* Extract the operator information from the ATOMIC.INFO file 
--* and place it in a linked list. 
procedure TEST DATA (INPUT LIST : in V LISTS.LIST; 


HARMONIC BLOCK LENGTH :inINTEGER); 
--* Determine if the operators can be feasabily scheduled on a single 
--* processor system. 


package NEW. GRAPH is new NEW. DATA, STRUCTURES; 
--* Instantiate the graph data structure so that it can be accessed by 
--* the rest of the Static Scheduler. 


NUMBER, OF. OPERATORS : INTEGER; 
end FRONT END; 
package bodv FRONT END is 


procedure PRODUCE OP LIST (INFO LIST : inout V LISTS.LIST; 
COUNT : in out INTEGER) is 


-- This procedure reads the output file which has the link information with 
-- the Atomic operators and depending upon the keywords that are declared 
-- as constants separates the information in the file and stores it the 

-- operator array and the link matrix. 


package VALUE, IO is new TEXT. IO.INTEGER, IO(VALUE); 


MET : constant VARSTRING.VSTRING := VARSTRING.VSTR(“MET”); 
MRT : constant VARSTRING. VSTRING := VARSTRING.VSTR(“MRT”); 
MCP : constant VARSTRING.VSTRING := VARSTRING.VSTR(“MCP”); 


PERIOD  :constant VARSTRING.VSTRING :z VARSTRING.VSTR( PERIOD"); 
WITHIN :constant VARSTRING.VSTRING :z VARSTRING.VSTR(“WITHIN”); 
LINK : constant VARSTRING.VSTRING := VARSTRING.VSTR('LINK”); 
ATOMIC : constant VARSTRING.VSTRING := VARSTRING.VSTR(“ATOMIC”); 
EMPTY | : constant VARSTRING.VSTRING := VARSTRING.VSTR(“EMPTY”); 


procedure INITIALIZE OPERATOR (OP : in out OPERATOR) is 
begin 

OP.THE MET := 0; 

OP.THE MRT :- 6; 

OP.THE MCP := 0; 

OP.THE PERIOD :- 0; 

OP.THE WITHIN := 0; 
end INITIALIZE OPERATOR; 
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kan: 
TEXT JO.OPEN (AG OUTFILE INPUT, 'atomic.info'); 
TEXT IO.CREATE(NON. CRITS,OUTPUT,'non crits''); 
COUNT := 0; 
VARSTRING .GET_LINE (AG_OUTFILE, New_Word); 
while not TEXT_IO.END_OF_FILE(AG _OUTFILE) loop 
if VARSTRING.EQUAL (New_Word LINK) then -- keyword “LINK” 
TEXT IO.SKIP LINE(AG OUTFILE); -- Skip over LINK 
TEXT. IO.SKIP LINE(AG. OUTFILE); -- info for now. 
TEXT. IO.SKIP LINE(AG OUTFILE); 
TEXT IO.SKIP LINE(AG OUTFILE); 
VARSTRING.GET LINE ( AG OUTFILE, New Word); 
elsif VARSTRING.EQUAL (New_Word,ATOMIC) then -- keyword “ATOMIC” 
VARSTRING.GET_LINE ( AG_OUTFILE, New_Word); 
Cur OpLTHE OPERATOR ID := New Word, 
VARSTRING.GET LINE (AG OUTFILE, New. Word); 
if (VARSTRING.EQUAL(New Word, ATOMIC)) or 
(VARSTRING.EQUAL(New_ Word, LINK)) or 
(TEXT_IO.END_OF_FILE(AG_OUTFILE)) then 
VARSTRING.PUT LINE(NON CRITS, Cur. Op. THE OPERATOR ID); 
--* Non-periodic Operator, No need to be statically scheduled. 
else 


while VARSTRING.NOTEQUAL (New. Word, ATOMIC) and -- Loop to get 
VARSTRING.NOTEQUAL (New. Word, LINK) and -- timing info 
not TEXT. IO.END OF. FILE(AG. OUTFILE) loop - of operator 


if VARSTRING.EQUAL (New. Word,MET) then -- keyword “MET” 
VALUE IO.GET(AG OUTFILE, Current. Value); 
TEXT IO.SKIP LINE(AG. OUTFILE); 
Cur OpL THE MET :- Current, Value; 
elsif VARSTRING.EQUAL (New. Word,MRT) then -- keyword “MRT” 
VALUE_IO.GET(AG_OUTFILE,Current_Value); 
TEXT_IO.SKIP_LINE(AG _ OUTFILE); 
Cur_Opt. THE_MRT:= Current_Value; 
elsif VARSTRING.EQUAL (New_Word,MCP) then -- keyword “MCP” 
VALUE IO.GET(AG OUTFILE,Current Value); 
TEXT. IO.SKIP  LINE(AG OUTFILE); 
Cur Opt. THE MCP := Current Value : 
elsif VARSTRING.EQUAL (New . “Word, PERIOD) then -- keyword “PERIOD” 
VALUE IO.GET(AG OUTFILE,Current Value); 
TEXT IO.SKIP LINE(AG OUTFILE); 
Cur, Op. THE PERIOD :- Current, Value; 
elsif VARSTRING.EQUAL (New. Word WITHIN) then -- keyword “WITHIN” 
VALUE_IO.GET(AG_OUTFILE,Current_Value); 
TEXT_IO.SKIP_LINE(AG _ OUTFILE); 
A ere :z Current Value; 
endi 
ien .GET LINE(AG OUTFILE New Word); 
end loo 
V_LISTS.ADD(Cur_ AL INFO_LIST); 
COUNT := COUNT +1 
INITIALIZE _OPERATOR(Cur_ Opt); 
end if; 
end if; 
end loop; 
TEXT_IO.CLOSE(AG_OUTFILE); 
NUMBER OF OPERATORS := COUNT; 
end PRODUCE OP LIST; 
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procedure TEST DATA (INPUT LIST : in V LISTS.LIST; 


HARMONIC BLOCK LENGTH : in INTEGER) is 
procedure CALC TOTAL TIME (INPUT LIST :in V LISTS.LIST; 
HARMONIC BLOCK LENGTH: in INTEGER) is 

V : V LISTS.LIST :z INPUT LIST; 

TIMES : FLOAT := 0.0; 

OP_TIME * FLOAT := 0.0; 

TOTAL TIME : FLOAT :z 0.6; 

PER : OPERATOR; 


BAD TOTAL TIME : exception; 


function CALC NO. OF PERIODS (HARMONIC BLOCK LENGTH : in INTEGER; 
THE PERIOD : in INTEGER) retum FLOAT is 
begin 


g 
return FLOAT(HARMONIC BLOCK LENGTH) / F.OAT(THE, PERIOD); 
end CALC NO OF. PERIODS; 


function MULTIPLY BY MET (TIMES : in FLOAT; 
THE MET : in VALUE) return FLOAT is 

begin 
return TIMES * FLOAT(THE MET); 

end MULTIPLY BY MET; 


function ADD. TO SUM (OP TIME : in FLOAT) retum FLOAT is 


begin 
return TOTAL TIME + OP. TIME; 
end ADD TO SUM; 


begin --main CALC. TOTAL TIME 
while V_LISTS.NON_EMPTY(V) loop 
PER := V. LISTS. VALUE(V); 
TIMES:= CALC NO OF PÉRIODS (HARMONIC BLOCK LENGTH , PER.THE, PERIOD; 
OP TIME := MULTIPLY BY MET (TIMES, V. LISTS. VALUE(V).THE, ME 
TOTAL TIME := ADD TO SUM (OP TIME); 
if TOTAL TIME » FLOAT(HARMONIC. BLOCK, LENGTH) then 
raise BAD TOTAL, TIME; 


else 
V LISTS.NEXT(V); 
end if; 
end loop; 


exception 
when BAD TOTAL TIME => 
TEST VERIFIED := FALSE; 
TEXT IO.PUT(“The total execution time of the operators exceeds “9; 
TEXT. IO.PUT LINE(“the HARMONIC BLOCK, LENGTH"); 
TEXT IO.NEW LINE: 
end CALC TOTAL | “TIME; 


procedure CALC HALF PERIODS (INPUT LIST : in V LISTS.LIST) is 


V:V LISTS.LIST := INPUT LIST; 
HALF PERIOD : FLOAT; 
FAIL HALF PERIOD : exception; 


PUn on DIVIDE PERIOD BY 2 (THE, PERIOD : in VALUE) retum FLOAT is 
gin 

return FLOAT(THE PERIOD) / 2.0; 
end DIVIDE PERIOD BY 2; 
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begin --main CALC HALF PERIODS; 
while V LISTSINON EMPTX(V) loop 
HALF PERIOD := DIVIDE PERIOD BY 2(V LISTS.VALUE(V).THE PERIOD); 
if FLOAT(V. LISTS. VALUE(V).THE MET) HALF PERIOD then 
Exception Operator := V LISTS. VALUE(V).THE OPERATOR ID; 
raise FAIL HALF PERIOD; 


else 
V LISTS.NEXT(V); 
end if; 
end loop; 


exception 
when FAIL HALF PERIOD => 
TEST VERIFIED := FALSE; 
TEXT IO.PUT (“The MET of Operator “); 
VARSTRING.PUT (Exception Operator); 
TEXT IO.PUT LINE (“ is greater than half of its period."); 
end CALC HALF PERIODS; 


eure CALC. RATIO SUM (INPUT LIST : in V LISTS.LIST) is 
: V LISTS.LIST := INPUT LIST; 


RATIO : FLOAT; 
RATIO SUM : FLOAT := 0.0; 
THE_MET : VALUE; 
THE PERIOD : VALUE; 


RATIO TOO BIG : exception; 


function DIVIDE MET BY PERIOD (THE MET : in VALUE; 
THE PERIOD : in VALUE) return FLOAT is 

begin 
retum FLOAT(THE MET) / FLOAT(THE PERIOD); 

end DIVIDE MET BY PERIOD; 


function ADD TO TIME (RATIO : in FLOAT) return FLOAT is 
be 


gin 
return RATIO. SUM + RATIO; 
end ADD. TO “TIME: 


begin --main CALC RATIO SUM 

while V _LISTS.NON _EMPTY(V) loop 
THE_ MET := V _LISTS.VALUE(V).THE_MET; 
THE . PERIOD :- V LISTS. VALUE(V).THE PERIOD; 
RATIO :- DIVIDE MET BY .PERIOD(THE. MET,THE PERIOD); 
RATIO SUM := ADD TO  TIME(RATIO); 
V _LISTS.NEXT(V); 

end loop; 

E RATIO _SUM - 0.5 > 0.00000001 then 
raise RATIO_TOO_BIG; 

end if; 


exception 
when RATIO_TOO_BIG => 
TEST_VERIFIED := FALSE; 
TEXT_IO.PUT (“The total MET/PERIOD ratio sum of operators is “‘); 
TEXT_IO.PUT_LINE (“greater than 0.5”); 
end CALC_RATIO_SUM; 


begin --main TEST_DATA 


CALC_TOTAL_TIME(INPUT_LIST, HARMONIC_BLOCK_LENGTH); 
CALC_HALF_PERIODS(INPUT_LIST); 


80 


CALC RATIO SUM(INPUT LIST); 
end TEST DATA; 


end FRONT END; 
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--* This package is a generic priority queue. It requires three parameters to be 
--* instantiated: A type of element to be stored in the priority queue, a value 
--* to order the queue by, and a function to order the queue with. 


generic 
type ELEMENT 1 is private; 
type ELEMENT 2 is private; 
with function ORDER. QUEUE (VALUE 1: in ELEMENT 2; 
VALUE. 2: in ELEMENT > retum BOOLEAN; 


package PRIORITY_QUEUES is 


type NODE; 
type LINK is access NODE; 
type NODE is 
record 
CONTENT : ELEMENT. 1; 
VALUE : ELEMENT. 2; 
NEXT : LINK; 
end record; 
function INITIALIZE PRIORITY QUEUE return LINK; 
procedure INSERT IN PRIORITY, QUEUE (ITEM : in ELEMENT. 1; 
ORDER VALUE :in ELEMENT. 2: 
QUEUE : in out LINK); 


function READ BEST FROM PRIORITY QUEUE (L: in LINK) return ELEMENT 1; 
--* 'This fuction reads the head of the queue without removing the item 


procedure REMOVE, BEST. FROM, PRIORITY. QUEUE (L: in out LINK); 
function NON EMPTY(L : in LINK) retum BOOLEAN; 
end PRIORITY QUEUES; 
with UNCHECKED DEALLOCATION; 
package body PRIORITY QUEUES is 
procedure FREE is new UNCHECKED DEALLOCATION(NODE, LINK); 
function INITIALIZE, PRIORITY QUEUE return LINK is 
L : LINK := null; 
begin 
return L; 


end INITIALIZE PRIORITY QUEUE; 
procedure INSERT_IN_PRIORITY _QUEUE (ITEM: in ELEMENT 1; 


ORDER VALUE :in ELEMENT 2; 
QUEUE : in out LINK) is 
FRONT : LINK := QUEUE; 
PREVIOUS : LINK :- null; 

T : LINK := new NODE; 
OP INSERTED : BOOLEAN := false; 
NEW FRONT : BOOLEAN := true; 


82 


begin 
T.CONTENT :- ITEM; 
T.VALUE := ORDER VALUE; 
while QUEUE /= null loop 
if ORDER QUEUE(ORDER. VALUE, QUEUE.VALUE) then 
if PREVIOUS /= null then 
PRE VIOUS.NEXT := T; 
end 1f; 
T.NEXT := QUEUE; 
OP_INSERTED := true; 
exit; 
end if; 
PREVIOUS := QUEUE; 
NEW_FRONT := false; 
QUEUE := QUEUE.NEXT; 
end loop; 
if not OP_INSERTED and FRONT /= null then 
PREVIOUS.NEXT := T; 
end if; 
if NEW_FRONT then 
QUEUE := T; 
else 
QUEUE := FRONT; 


end if; 

end INSERT IN PRIORITV. QUEUE; 

function READ BEST FROM PRIORITY QUEUE (L : in LINK) return ELEMENT lis 
BEST : ELEMENT 1; 


begin 
BEST := L.CONTENT: 
retum BEST; 
end READ BEST FROM PRIORITY QUEUE; 


procedure REMOVE, BEST. FROM, PRIORITY. QUEUE (L: in out LINK) is 
TEMP: LINK := L; 


begin 
L := L.NEXT; 
FREE(TEMP); 
end REMOVE_BEST_FROM_PRIORITY_QUEUE; 


An von NON EMPTX(L : in LINK) return BOOLEAN is 
gin 
if L = null then 
return FALSE; 
else 
return TRUE; 
end if; 
end NON EMPTY; 


end PRIORITY, QUEUES; 
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with DATA; use DATA; 


package SCHEDULER is 
procedure EARLIEST START(TOP SORT :in NODE LIST.LIST; 
AGENDA :inout SCHEDULE INPUTS LIST.LIST; 
COUNT : in INTEGER; 
H_B_LENGTH : in INTEGER; 
VALID_SCHEDULE : in out BOOLEAN); 
procedure EARLIEST DEADLINE(TOP. SORT :in NODE LIST.LIST; 
AGENDA :inout SCHEDULE INPUTS LIST.LIST; 
COUNT :inINTEGER, 
H B LENGTH : in INTEGER; 


VALID SCHEDULE _ : inout BOOLEAN); 


procedure EXHAUSTIVE ENUMERATION ( TOP. SORT: in NODE LIST.LIST; 
AGENDA : in out SCHEDULE INPUTS. LIST.LIST; 
OP COUNT : in INTEGER; 
H B LENGTH : in INTEGER; 
VALID SCHEDULE :in out BOOLEAN); 


procedure CREATE STATIC SCHEDULE (OPERATOR LIST : in NODE LIST.LIST; 
THE SCHEDULE INPUTS : in SCHEDULE INPUTS LIST.LIST; 
HARMONIC BLOCK LENGTH : in INTEGER); 


end SCHEDULER; 


with TEXT IO; 

with DATA; use DATA; 

with SEQUENCES; 

with FRONT END; use FRONT END; 
with PRIORITY QUEUES; 

with DIAGNOSTICS; 


package body SCHEDULER is 


procedure EARLIEST START(TOP SORT : in NODE LIST.LIST; 
AGENDA : in out SCHEDULE INPUTS LIST.LIST; 
COUNT : in INTEGER; 
H B LENGTH : in INTEGER; 


VALID SCHEDULE . :inout BOOLEAN) is 


package int. io is new TEXT. IO.integer io(integer); 
use int 10; 


package EST PRIORITV. QUEUES is new VE or Man 


TA.LOWERS, 
en) 
PRIORITY_QUEUE : EST_PRIORITY_QUEUES.LINK := null; 
REV_AGENDA : SCHEDULE INPUTS LISTLIST; 
T SORT : NODE_LIST.LIST := TOP_SORT: 
NEW_NODE : SCHEDULE_INPUTS; 
BEST_NODE : SCHEDULE_INPUTS; 
ADDL_NODE : SCHEDULE_INPUTS; 
STOP_TIME : INTEGER := 0; 
OP_NUM : INTEGER; 
EST : INTEGER; 
TEMP : OPERATOR; 
begin 


VALID SCHEDULE := true; 
NEW NODE.THE. OPERATOR :z 0€; 
NEW NODE.THE LOWER :: H. B LENGTH - 10; 
SCHEDULE INPUTS LIST. ADD(NEW NODE, REV AGENDA); 
NEW NODE.THE LOWER := 0; 
NODE _LIST.NEXT(T_ SORT); 
while NODE_LIST.NON_EMPTY(T_SORT) or 
EST PRIORITY QUEUES.NON EMPTY(PRIORITY QUEUE) loop 
if NODE LIST.NON EMPTY (T SORT) then 
OP NUM := DATA.NODE LIST.VALUE(T SORT); 
TEMP : NEW GRAPH.OP RETURN(OP NUM); 
NEW NODE.THE OPERATOR :z OP NUM; 
end if; 
if EST PRIORITY QUEUES.NON EMPTY(PRIORITY QUEUE) then 
Pur ODE := EST. PRIORITY, QUEUES.READ BEST. FROM, PRIORITY, QUEUE(PRIORITY. QUEUE); 
endi 
if BEST NODE.THE LOWER c STOP TIME and EST PRIORITY QUEUES.NON EMPTY(PRIORITY. QUEUE) then 
NEW NODE.THE OPERATOR :- BEST. NODE.THE OPERATOR; 
NEW .NODE.THE LOWER :- BEST NODE.THE LOWER; 
NEW. NODE.THE START :- STOP TIME; 
TEMP := NEW GRAPH.OP  RETURN(NEW . NODE.THE OPERATOR); 
STOP TIME := STOP TIME 4 TEMP.THE MET; 
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NEW NODE.THE STOP := STOP TIME; 
NEW NODE .THE INSTANCE := BEST. NODE -THE_INSTANCE + 1; 
EST := NEW_NODE.THE_LOWER 4 TEMP.THE PERIOD; 
if EST + TEMP.THE_MET <= H_B_LENGTH then 
ADDL_NODE.THE_OPERATOR := NEW_NODE.THE_OPERATOR; 
ADDL_NODE.THE_LOWER := EST; 
ADDL. NODE.THE INSTANCE :- NEW. NODE.THE, INSTANCE; 
EST eb.  QUEUES.INSERT. IN. PRIORITY. QUEUE(ADDL, NODE, ADDL, NODE.THE LOWER, PRIORITY. QUEUE); 
end i 
EST. PRIORITY QUEUES.REMOVE BEST FROM, PRIORITY QUEUE(PRIORITY QUEUE), 
elsif not NODE. LIST.NON EMPTY(T. SORT) then 
NEW NODE.THE OPERATOR :- BEST NODE.THE OPERATOR; 
NEW NODE.THE LOWER :- BEST NODE.THE LOWER; 
if NEW NODE.THE LOWER » STOP TIME then 
NEW NODE.THE START:- NEW NODE.THE LOWER; 
else 
NEW NODE.THE START := STOP TIME; 
end 1f; 
TEMP := NEW GRAPH.OP RETURN(NEW. NODE.THE OPERATOR); 
STOP TIME :2 NEW NODE.THE START 4 TEMP.THE MET; 
NEW NODE.THE STOP := STOP TIME; 
NEW. NODE .THE INSTANCE :- . BEST. NODE.THE. INSTANCE + 1; 
EST := NEW NODE.THE LOWER + TEMP.THE, PERIOD: 
if EST 4 TEMP.THE MET c- H B LENGTH then 
ADDL NODE.THE OPERATOR :- NEW. NODE.THE, OPERATOR; 
ADDL NODE.THE LOWER := EST; 
ADDL. NODE.THE INSTANCE :- NEW NODE.THE INSTANCE; 
gs PRIORITY. QUEUES.INSERT. IN. PRIORITY QUEUE(ADDL, NODE, ADDL, NODE.THE LOWER, PRIORITY. QUEUE); 
end if; 
EST PRIORITY QUEUES.REMOVE BEST FROM PRIORITY QUEUE(PRIORITY QUEUE); 
else --* Scheduling Initial Set of E 
NEW NODE.THE START := STOP TIME 
TEMP := NEW GRAPH.OP " RETURN(NEW NODE.THE_OPERATOR); 
STOP_TIME := STOP_TIME + TEMP.THE_MET; 
NEW_NODE.THE_STOP := STOP TIME; 
NEW_NODE.THE_INSTANCE := 1: 
EST := NEW_NODE.THE_START + TEMP.THE_PERIOD; 
if EST + TEMP.THE MET <=H B LENGTH orelse NEW NODE.THE START >= TEMP.THE PERIOD then 
ADDL NODE.THE OPERATOR : NEW NODE.THE OPERATOR; 
ADDL NODE.THE LOWER := EST: 
ADDL NODE.THE INSTANCE al 
Er PRIORITY QUEUES.INSERT IN PRIORITY QUEUE(ADDL NODE, ADDL NODE.THE LOWER, PRIORITY. QUEUE); 
end 
NODE. .LIST.NEXT(T. SORT); 
en 
if NEW NODE.THE STOP»H B. LENGTH then 
VALID SCHEDULE :- false; 
end if; 
SCHEDULE INPUTS LIST.ADD(NEW NODE, REV. AGENDA); 
NEW NODE.THE LOWER :- 0; 
end loop; 
SCHEDULE INPUTS LIST.LIST REVERSE(REV. AGENDA, AGENDA); 
SCHEDULE INPUTS. -—LIST.FREE LIST(REV AGENDA); 
end EARLIEST START; 


procedure EARLIEST DEADLINE(TOP SORT : in NODE LIST.LIST; 
AGENDA : inout SCHEDULE INPUTS LIST.LIST; 
COUNT : in INTEGER; 
H B LENGTH : in INTEGER; 


VALID SCHEDULE : in out BOOLEAN) is 


package int io is new TEXT. IO.integer. io(integer); 
use int. 1o; 


package EDL. PRIORITY. QUEUES is new PRIORITY. QUEUES(DATA.SCHEDULE, INPUTS, 


DATA.UPPERS, 
ét <); 

PRIORITV QUEUE : EDL_PRIORITY_QUEUES.LINK := null; 

REV_AGENDA : SCHEDULE INPUTS LIST.LIST; 

T. SORT : NODE LIST.LIST :z TOP. SORT; 

NEW NODE : SCHEDULE. INPUTS; 

BEST. NODE : SCHEDULE. INPUTS; 

ADDL NODE : SCHEDULE INPUTS; 

STOP TIME : INTEGER := 0; 

OP_NUM : INTEGER; 

EST : INTEGER; 

TEMP : OPERATOR; 

begin 


VALID SCHEDULE :z true; 
NEW. NODE.THE OPERATOR :- 0; 
NEW. NODE.THE. ' LOWER :- H B LENGTH - 10; 
SCHEDULE _INPUTS _LIST. ADD(NEW_ NODE, REV. AGENDA); 
NEW. NODE.THE. LOWER := 0; 
NODE LIST. NEXT(T_ SORT); 
while NODE_LIST.NON_EMPTY(T_SORT) or EDL_PRIORITY_QUEUES.NON_EMPTY(PRIORITY_QUEUE) loop 
if NODE_LIST.NON_EMPTY(T_SORT) then 
OP NUM :- DATA.NODE LIST.VALUE(. SORT); 
TEMP : NEW GRAPH.OP RETURN(OP NUM); 
NEW NODE THE OPERATOR := OP NUM; 
end if; 
if EDL. PRIORITY QUEUES.NON EMPTY(PRIORITY QUEUE) then 
PSOE :- EDL, PRIORITY. QUEUES.READ. BEST. FROM. PRIORITY. QUEUE(PRIORITY QUEUE); 
end i 
if BEST NODE.THE LOWER c STOP TIME and EDL, PRIORITY. QUEUES.NON, EMPTY (PRIORITY, QUEUE) then 
NEW NODE.THE OPERATOR :z BEST NODE.THE OPERATOR; 
NEW NODE.THE LOWER :- BEST NODE.THE - LOWER; 
NEW NODE.THE. UPPER :z BEST NODE.THE UPPER; 
NEW NODE.THE START :z STOP TIME; 
TEMP : NEW GRAPH.OP RETURN(NEW NODE.THE OPERATOR); 
STOP TIME :- : STOP. TIME 4 TEMP.THE MET; 
NEW NODE.THE. STOP :- = STOP TIME; 
NEW NODE THÉ INSTANCE := BEST. NODE.THE INSTANCE + 1; 
EST :- NEW NODE.THE. LOWER + TEMP.THE_ PERIOD; 
if EST + TEMP.THE_MET <= H_B_LENGTH then 
ADDL_NODE.THE_OPERATOR := NEW_NODE.THE_OPERATOR; 
ADDL _ _NODE.THE . LOWER := EST; 
ADDL_NODE.THE_INSTAN CE := NEW_NODE.THE_INSTANCE; 
if TEMP.THE_WITHIN /= 0 then 
ADDL_NODE.THE_UPPER := EST + TEMP.THE_WITHIN - TEMP.THE_MET; 


else 
ADDL_NODE.THE_UPPER := EST + TEMP.THE_PERIOD - TEMP.THE_MET; 

end if; 

E. PRIORITY QUEUES.INSERT IN PRIORITY QUEUE(ADDL NODE, ADDL NODE.THE. UPPER, PRIORITY. QUEUE); 
end if; 
EDL PRIORITY QUEUES.REMOVE BEST FROM PRIORITY QUEUE(PRIORITY QUEUE), 

elsif not NODE LIST.NON EMPTY(T SORT) then 

NEW NODE.THE - OPERATOR :z BEST. NODE.THE OPERATOR; 
NEW NODE.THE LOWER := BEST NODE.THE LOWER; 
NEW NODE. THE UPPER :z: BEST. NODE.THE UPPER; 
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if NEW NODE.THE LOWER 2 STOP. TIME then 
NEW NODE.THE START := NEW NODE.THE LOWER; 


else 
EN ODE.THE START := STOP_TIME; 
end if; 
TEMP := NEW_GRAPH.OP_RETURN(NEW_NODE.THE_OPERATOR); 
STOP TIME := NEW NODE.THE START + TEMP.THE MET; 
NEW NODE.THE STOP :- STOP TIME; 
NEW NODE .THE INSTANCE :- BEST NODE.THE INSTANCE - 1; 
EST := NEW NODE.THE LOWER + TEMP.THE PERIOD; 
if EST + TEMP.THE MET <=H B LENGTH then 
ADDL NODE.THE OPERATOR := NEW NODE.THE OPERATOR; 
ADDL NODE.THE LOWER := EST; 
ADDL NODE.THE INSTANCE :- NEW NODE.THE INSTANCE; 
if TEMP.THE WITHIN /- 0 then 
ADDL NODE.THE UPPER :- EST * TEMP.THE WITHIN - TEMP.THE MET; 
else 
ADDL NODE.THE. UPPER :- EST * TEMP.THE PERIOD - TEMP.THE MET; 
end if; 
EDL PRIORITY QUEUES.INSERT IN PRIORITY QUEUE(ADDL NODE, ADDL NODE.THE, UPPER, PRIORITY. QUEUE); 
end if; 
EDL PRIORITY QUEUES.REMOVE BEST FROM PRIORITY QUEUE(PRIORITY QUEUE); 
else --* Scheduling Initial Set of Operators 
NEW NODE.THE START := STOP TIME; 
TEMP := NEW GRAPH.OP _ RETURN(NEW_ NODE.THE_OPERATOR); 
STOP_TIME := STOP_TIME + TEMP.THE_ MET; 
NEW. NODE.THE STOP :- STOP. TIME; 
NEW NODE.THE INSTANCE :- 1; 
EST : NEW NODE.THE START 4 TEMP.THE PERIOD; 
if EST + TEMP.THE MET «- H B. LENGTH or else NEW NODE.THE START 2: TEMP.THE. PERIOD then 
ADDL NODE.THE OPERATOR : NEW NODE.THE OPERATOR; 
ADDL NODE.THE LOWER :- EST; 
ADDL NODE.THE INSTANCE :z 1; 
if TEMP.THE WITHIN /- 0 then 
nr NODE.THE_UPPER := EST + TEMP.THE_WITHIN - TEMP.THE _MET; 
else 
Or aaa OTE. THE UPPER := EST + TEMP.THE_PERIOD - TEMP.THE MET; 
end if; 
EDL PRIORITY QUEUES INSERT. IN PRIORITY QUEUE(ADDL NODE, ADDL NODE.THE UPPER, PRIORITV. QUEUE); 


end if; 
biża cu NBA CT SORT): 
end if; 
if NEW_NODE.THE_STOP > H_B_LENGTH then 
VALID_SCHEDULE := false; 
end if; 
SCHEDULE_INPUTS_LIST.ADD(NEW_NODE, REV_AGENDA); 
NEW_NODE.THE_LOWER := 0; 
NEW _NODE ‚THE_UPPER := 0; 
end loop; 
SCHEDULE_INPUTS_LIST.LIST_REVERSE(REV_AGENDA, AGENDA); 
SCHEDULE_INPUTS .LIST.FREE LIST(REV AGENDA); 
end EARLIEST DEADLINE; 


procedure EXHAUSTIVE ENUMERATION ( TOP SORT . : in NODE _LIST.LIST: 
AGENDA  :inout SCHEDULE INPUTS LIST.LIST; 
OP COUNT : in INTEGER; 
H B LENGTH :in INTEGER; 
VALID SCHEDULE: in out BOOLEAN) is 


package int io is new TEXT IO.integer io(integer); 
use int, io; 
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TEMP : SCHEDULE INPUTS LIST.LIST; 


COUNT : INTEGER := 0; 
procedure TOP_SORTS (AGENDA :inout SCHEDULE INPUTS LIST.LIST; 
COUNT : in INTEGER; 


VALID SCHEDULE  :inout BOOLEAN; 
BLOCK LENGTH : in INTEGER) is 


type. VECTOR is array (1.. COUNT) of eRe 
: VE R; 
ae SCHEDULE. ARRAY is array (1. .COUNT) of SCHEDULE INPUTS; 


P ARRAY : SCHEDULE ARRAY; 
type TIME RECORD is 

record 

OPERATOR : INTEGER; 

TIME 1 : INTEGER; 

TIME 2 : INTEGER; 
end record; 
type TIME - ARRAY is array (1..OP OR of TIME RECORD; 
START TIME ARRAV TIME, ARRAY; 
HOLD : SCHEDULE INPUTS; 
TEMP : SCHEDULE INPUTS LIST.LIST := AGENDA; 
INDEX : INTEGER := 1; 
INDEX 1 : INTEGER :z 1: 
NODE 1 : INTEGER; 
NODE 2 : INTEGER; 
MET : INTEGER; 
POSITION : INTEGER; 
STOP TIME : INTEGER; 
HOLD STOP TIME : INTEGER; 
START. TIME : INTEGER; 
i : INTEGER : COUNT; 
INITIAL START. TIME : INTEGER; 
LOWER. BOUND : INTEGER; 
ADJUSTED : BOOLEAN := false; 
beri 


while SCHEDULE_INPUTS_LIST.NON_EMPTY(TEMP) loop 
P_ARRAY(INDEX) := SCHEDULE_INPUTS_LIST.VALUE(TEMP); 
LOC(INDEX) := INDEX; 
INDEX := INDEX + 1; 
if SCHEDULE_INPUTS_LIST. VALUE(TEMP).THE_INSTANCE = 1 then 
START TIME ARRAY(INDEX 1).0PERATOR:= SCHEDULE INPUTS LIST.VALUE(TEMP).THE OPERATOR; 
START. TIME ARRAY(INDEX 1).TIME, 1:= SCHEDULE INPUTS LIST.VALUE(TEMP).THE START; 
START TIME ARRAX(INDEX 1).TIME 2:= SCHEDULE INPUTS LIST.VALUE(TEMP).THE STOP; 
INDEX 1 := INDEX 1+1; 
end if; 
SCHEDULE INPUTS LIST.NEXT(TEMP); 
end loop; 
while i » 1 loop 
NODE 1: P ARRAY(LOC(i))THE OPERATOR; 
NODE 2:2 P ARRAY(LOC(i)--1).THE OPERATOR; 
if not FRONT END.NEW GRAPH.IS PARENT(NODE 2,NODE 1) then 
HOLD := P_LARRAY(LOCG)); 
if 1» 2 then 
Sa as =P ARRAV(LOC(I)-1).THE START; 
e 
STOP TIME :- 0; 
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end if; 
P_ARRAY(LOC(i)) : P_ARRAY(LOC()-1); 
P ARRAY(LOC()-1) : HOLD; 
STOP TIME := 0; 
for 11n 1..COUNT loop 
if P. ARRAY(i).THE INSTANCE = 1 then 
for j in 1.0P_COUNT+1 loop 
if P ARRAY(i).THE OPERATOR = START TIME ARRAY(j).OPERATOR then 
MET : START TIME ARRAY(j).TIME 2- START TIME ARRAY(j).TIME 1; 
P ARRAY(i).THE START := STOP TIME; 
START TIME ARRAV(J).TIME 1:- STOP. TIME; 
STOP TIME := STOP TIME + MET: 
START TIME ARRAY().TIME 2:= STOP TIME; 
P _ARRAY (i). THE_STOP := STOP_TIME; 
exit; 
end if; 
end loop; 
else 
for lin 1..OP_COUNT+1 loop 
if P_ARRAY(i).THE_OPERATOR = START_TIME_ARRAY(l). OPERATOR then 
INITIAL, START. TIME :- START. TIME ARRAY().TIME 1; 
exit; 
end if, 
end loop; 
LOWER BOUND := INITIAL START TIME + ((P. ARRAY (i). THE INSTANCE-1) * 
NEW GRAPH.OP RETURN(P ARRAY (I1).THE OPERATOR).THE PERIOD); 
if LOWER BOUND > STOP TIME then 
START TIME := LOWER BOUND; 
else 
s m :z STOP TIME; 
endi 
MET : P ARRAY(i).THE STOP-P ARRAY(i).THE START; 
P ARRAY(i)THE START :z START. TIME; 
STOP TIME := START TIME + MET; 
P ARRAY(i).THE STOP :- STOP ' TIME; 
P ARRAY(I).THE LOWER := LOWER BOUND; 
end 1f; 
end loop; 
if P ARRAV(COUNT).THE STOP <= BLOCK LENGTH then 
VALID SCHEDULE := true; 


exit; 
end if; 
RE := LOC(i)-1; 
COUNT; 
TR 


if LOC(i) /2 i then 
HOLD := P_ARRAY(LOC(i)); 
for j in LOC() ..i-1 loop 
P_ARRAY(j) := P_ARRAY(j+1); 
end loop; 
P_ARRAY‘(i) := HOLD; 
LOCG) := i; 
STOP_TIME := 0; 
for i in 1. COUNT loop 
if P ARRAY(). THÉ INSTANCE z 1 then 
for j in 1.0P_COUNT+1 loop 
if P_ARRAY(i). THE_OPERATOR = START_TIME_ARRAY(j). OPERATOR then 
MET := START_TIME_ARRAY(j). TIME_2 - START_TIME _ARRAY(j). TIME_1; 
P ARRAY(i).THE START := STÓP TIME; 
START TIME ARRAY(j)TIME 1 = STOP "TIME; 
STOP TIME := STOP TIME + MET: 
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START. TIME ARRAY(j).TIME 2:- STOP. TIME; 
P ARRAV(I). THE STOP :- STOP TIME; 
exit; 
end if; 
end loop; 
else 
for lin 1.OP COUNT-1 loop 
if P ARRAV(Ii) THE OPERATOR z START TIME ARRAX (I).OPERATOR then 
INITIAL START TIME := START TIME. _ARRAY(I).TIME_]; 
exit: 
end if; 
end loop; 
LOWER BOUND := INITIAL START TIME + ((P ARRAY(1).THE INSTANCE-1) * 
NEW GRAPH.OP  RETURN( . ARRAY(i) THE, OPERATOR).THE PERIOD); 
if LOWER_ BOUND > STOP_TIME then 
START_TIME = LOWER BOUND; 
else 
START TIME := STOP TIME; 
end 1f; 
MET :- P ARRAY(i).THE, STOP - P ARRAY(i).THE START; 
P_ARRAY(i).THE_ START := START_TIME; 
STOP_TIME := START_TIME + MET; 
P_ARRAY(i).THE_ STOP := STOP_TIME; 
P ~ARRAY (i). THE_ LOWER := LOWER_BOUND; 


end loop; 
SCHEDULE INPUTS LIST.FREE LIST(AGENDA); 
for l in reverse 1.. COUNT loop 
SCHEDULE INPUTS LIST.ADD(P. ARRAY(I), AGENDA); 
end loop; 
end TOP. SORTS; 


begin 
EARLIEST START(TOP SORT,AGENDA,OP COUNT,H B. LENGTH, VALID SCHEDULE); 
TEMP :- AGENDA; 
while SCHEDULE INPUTS LIST.NON EMPTX(TEMP) loop 
COUNT := COUNT + 1; 
2 CHEDULE INPUTS. LIST.NEXT(TEMP); 
end loop; 
TOP SORTS(AGENDA, COUNT, VALID SCHEDULE,H B. LENGTH); 
end EXHAUSTIVE ENUMERATION; 


procedure CREATE STATIC SCHEDULE (OPERATOR LIST : in NODE LIST.LIST; 
THE SCHEDULE INPUTS : in SCHEDULE INPUTS LIST.LIST; 
HARMONIC BLOCK. LENGTH : in INTEGER) is 

-- creates the static schedule output and prints to “ss.a” file. 


OP_LIST : NODE LIST.LIST : OPERATOR LIST; 

S : SCHEDULE INPUTS LIST.LIST :- THE SCHEDULE INPUTS; 
SCHEDULE : TEXT_IO FILESI YPE; 

OUTPUT : TEXT_IO.FILE_ TMODE :- = TEXT IO.OUT FILE; 

COUNTER : INTEGER := 1; 

TEMPVAR OPERATOR_ID; 


package VALUE IO is new TEXT_IO.INTEGER_IO(VALUE); 
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use VALUE IO; 

package F_IO is new TEXT_IO.FLOAT_IO(FLOAT); 

package INTEGERIO is new TEXT IO.INTEGER IO(INTEGER); 
use INTEGERIO; 


begin 

TEXT IO.CREATE(SCHEDULE, OUTPUT, ''ss.a'); 

TEXT IO.PUT. LINE(SCHEDULE, “with GLOBAL DECLARATIONS; use GLOBAL DECLARATIONS;'); 

TEXT IO.PUT LINE(SCHEDULE, “with DS DEBUG PKG; use DS DEBUG PKG;'); 

TEXT IO.PUT LINE(SCHEDULE, “with TL; use TL;”); 

TEXT IO.PUT LINE(SCHEDULE, “with DS "PACKAGE; use DS _PACKAGE;”); 

TEXT IO.PUT(SCHEDULE, ''with PRIORITV. DEFINITIONS; '); 

TEXT_IO.PUT_LINE (SCHEDULE, “‘use PRIORITY_ DEFINITIONS; ye 

TEXT_IO.PUT_LINE(SCHEDULE, “with CALENDAR; use CALENDAR ido 

TEXT IO.PUT LINE(SCHEDULE, “with TEXT IO; use TEXT IO;”; 

TEXT IO.PUT LINE(SCHEDULE, “procedure STATIC. SCHEDULE is"); 

NODE LIST.NEXT(OP. LIST); --* Bypass dummy start node 

while NODE. LIST.NON EMPTY(OP. LIST) loop 
TEXT IO.SET COL(SCHEDULE, 3); 
VARSTRING.PUT(SCHEDULE, NEW GRAPH.OP RETURN(NODE LIST.VALUE(OP. LIST)).THE OPERATOR ID); 
TEXT_IO.PUT_LINE(SCHEDULE, “_TIMING_ERROR : exception;"); 
NODE_LIST.NEXT(OP_LIST); 

end loop; 


TEXT IO.SET COL(SCHEDULE, 3); 
TEXT IO.PUT LINE(SCHEDULE, “task type SCHEDULE TYPE is”; 
TEXT IO.SET COL(SCHEDULE, 5); 
TEXT. IO.PUT. LINE(SCHEDULE, *pragma priority (STATIC. SCHEDULE, PRIORITY);"); 
TEXT IO.SET COL(SCHEDULE, 3); 
TEXT IO.PUT LINE(SCHEDULE, “end SCHEDULE_TYPE;”); 
TEXT_IO.SET_COL(SCHEDULE, 3); 
TEXT_IO.PUT_LINE(SCHEDULE, “for SCHEDULE_TYPE’STORAGE_SIZE use 200. 000;"); 
TEXT IO.SET COL(SCHEDULE, 3); 
TEXT_IO.PUT_LINE(SCHEDULE, “SCHEDULE : SCHEDULE TYPE;”); 
TEXT IO.NEW LINE(SCHEDULE); 
TEXT IO.SET COL(SCHEDULE, 3); 
TEXT. IO.PUT. LINE(SCHEDULE, *task body SCHEDULE TYPE is"); 
TEXT, IO.PUT(SCHEDULE, “ PERIOD: rn: z duration('); 
F IO.PUT(SCHEDULE, FLOAT(HARMONIC BLOCK, LENGTH)/1000.0); 
TEXT IO.PUT LINE(SCHEDULE, '9;”); 
S:- THE SCHEDULE INPUTS; 
SCHEDULE INPUTS LIST. NEXT(S); --* Bypass dummy start node. 
while SCHEDULE INPUTS LIST.NON - EMPTY(S) loop 
TEXT IO.SET COL(SCHEDULE, 5); 
VARSTRING.PUT(SCHEDULE, 
FRONT END.NEW GRAPH.OP RETURN(SCHEDULE INPUTS LIST.VALUE(S).THE OPERATO 
R).THE OPERATOR ID); 
TEXT IO.PUT(SCHEDULE, " STOP TIME"); 
INTEGERIO.PUT(SCHEDULE, COUNTER, 1): 
TEXT IO.PUT(SCHEDULE, *' : duration := duration('); 
F IO. PUT(SCHEDULE,FLOAT(SCHEDULE_ INPUTS LIST.VALUE(S).THE STOP)/1000.0); 
TEXT IO.PUT LINE(SCHEDULE, ');7); 
SCHEDULE INPUTS. LIST.NEXT(S); 
COUNTER := COUNTER + 1; 
end loop; 
TEXT_IO.SET_COL(SCHEDULE, 5); 
TEXT_IO.PUT_LINE(SCHEDULE, "SLACK, TIME : duration;”); 
TEXT_IO.SET_COL(SCHEDULE, 5); 
TEXT_IO.PUT_LINE(SCHEDULE, “START_OF PERIOD: time :z clock;"); 
TEXT IO.SET COL(SCHEDULE, 5); 
TEXT IO.PUT -LINE(SCHEDULE, "CURRENT. TIME : duration;"); 
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TEXT IO.PUT LINE(SCHEDULE, ''begin'); 
TEXT_IO.PUT_LINE(SCHEDULE, “ loop”): 
TEXT_IO.SET_COL(SCHEDULE, 5); 
TEXT_IO.PUT(SCHEDULE, “begin”): 


S := THE_SCHEDULE_INPUTS; 
SCHEDULE INPUTS LIST.NEXT(S); --* Bypass dummy start node. 
COUNTER := 1; 

while SCHEDULE INPUTS LIST.NON EMPTY(S) loop 

TEXT IO.SET COL(SCHEDULE, 7); 

VARSTRING.PUT(SCHEDULE, 

FRONT END.NEW GRAPH.OP RETURN(SCHEDULE INPUTS LIST.VALUE(S).THE OPERATO 
R).THE OPERATOR ID); 

TEXT IO.PUT LINE(SCHEDULE, “ DRIVER;"); 

TEXT. IO.SET. COL(SCHEDULE, 7); 

TEXT IO.PUT(SCHEDULE, “SLACK TIME := START OF PERIOD + “); 

VARSTRING.PUT(SCHEDULE, 

FRONT END.NEW GRAPH.OP RETURN(SCHEDULE INPUTS LIST.VALUE(S).THE OPERATO 
R).THE OPERATOR ID); 

TEXT. IO.PUT(SCHEDULE, * STOP TIME"); 

INTEGERIO.PUT(SCHEDULE, COUNTER, 1); 

TEXT_IO.PUT_LINE(SCHEDULE, “ - CLOCK; ih 

TEXT. IO.SET. COL(SCHEDULE, 7); 

TEXT IO.PUT LINE(SCHEDULE, “if SLACK TIME >= 0.0 then"); 

TEXT IO.SET COL(SCHEDULE, 9); 

TEXT IO.PUT "LINE(SCHEDULE, “delay (SLACK_TIME);”); 

TEXT_IO.SET_COL(SCHEDULE, 

TEXT_IO.PUT "LINE(SCHEDULE, “else”): 

TEXT_IO.SET_COL(SCHEDULE, 9); 

TEXT IO.PUT(SCHEDULE, ''raise '); 

VARSTRING.PUT(SCHEDULE, 

FRONT END.NEW GRAPH.OP RETURN(SCHEDULE INPUTS LIST.VALUE(S).THE OPERATO 
R).THE OPERATOR ID); 
TEXT IO.PUT LINE(SCHEDULE, “ TIMING ERROR;”); 
TEXT IO.SET COL(SCHEDULE, 7); 
TEXT IO.PUT. LINE(SCHEDULE, "end if;"); 
TEMPVAR:= 
FRONT_END.NEW_GRAPH.OP_RETURN(SCHEDULE_INPUTS_LIST.VALUE(S).THE_OPERATO 
R).THE OPERATOR ID; 
SCHEDULE INPUTS LIST.NEXT(S); 
if SCHEDULE INPUTS LIST.NON EMPTY (S) then 
-- pointer is pointing to the next record after this. 
TEXT IO.SET COL(SCHEDULE, 7); 
TEXT IO.PUT(SCHEDULE, ''delav (START OF PERIOD - ''); 
VARSTRING.PUT(SCHEDULE, TEMPVAR); 
TEXT IO.PUT(SCHEDULE, “ STOP TIME”); 
INTEGERIO.PUT(SCHEDULE, COUNTER 1); 
TEXT_IO.PUT_LINE(SCHEDULE, “ - CLOCK);”); 
TEXT IO.NEW LINE(SCHEDULE); 

endi 

COUNTER := COUNTER + 1; 

end loop; 


TEXT IO.SET COL(SCHEDULE, 7); 
TEXT IO.PUT LINE(SCHEDULE, 
“START OF PERIOD := START OF PERIOD + PERIOD;”); 
TEXT IO.SET COL(SCHEDULE, 7); 
TEXT IO.PUT LINE(SCHEDULE, “delay (START OF PERIOD - clock);”); 


TEXT IO.SET COL(SCHEDULE, 7); 
TEXT. IO.PUT LINE(SCHEDULE, “exception”); 
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OP. LIST :- OPERATOR LIST; 
NODE LIST.NEXT(OP LIST); --* Bypass dummy start node 
COUNTER:= COUNTER - 1; 
while NODE LIST.NON EMPTX(OP. LIST) loop 
TEXT_IO.SET_COL(SCHEDULE, 9); 
TEXT. IO.PUT(SCHEDULE, “when '); 
VARSTRING.PUT(SCHEDULE, 
NEW_GRAPH.OP_RETURN(NODE_LIST.VALUE(OP_ LIST)).THE OPERATOR ID); 
TEXT_IO.PUT_LINE(SCHEDULE, “_TIMING_ERROR =>”); 
TEXT_IO.SET_COL(SCHEDULE, 11); 
TEXT_IO.PUT(SCHEDULE, “PUT_LINE(‘“‘timing error from operator “‘); 
VARSTRING.PUT(SCHEDULE, 
NEW_GRAPH.OP_RETURN(NODE_LIST.VALUE(OP_LIST)).THE_OPERATOR_ID); 
TEXT_IO.PUT_LINE(SCHEDULE, “*"‘);”); 
TEXT_IO.PUT_LINE(SCHEDULE, “START_OF_PERIOD := clock;”); 
NODE_LIST.NEXT(OP_LIST); 
COUNTER:= COUNTER - 1: 
end loop; 


TEXT_IO.SET_COL(SCHEDULE, 7); 

TEXT IO.PUT LINE(SCHEDULE, “end;”); 

TEXT IO.SET COL(SCHEDULE, 5); 
TEXT_IO.PUT_LINE(SCHEDULE, “end loop;”); 
TEXT_IO.SET_COL(SCHEDULE, 3); 

TEXT IO.PUT LINE(SCHEDULE, *end SCHEDULE, TYPE;"); 
TEXT. IO.NEW. LINE(SCHEDULE); 

TEXT. IO.PUT _LINE(SCHEDULE, “begin”); 

TEXT_IO.SET _COL(SCHEDULE, 3); 

TEXT IO.PUT LINE(SCHEDULE, ^null;"); 

TEXT IO.PUT LINE(SCHEDULE, “end STATIC. SCHEDULE;”); 


end CREATE STATIC SCHEDULE: 
end SCHEDULER; 
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with DATA; use DATA; 
package ANNEAL is 
procedure SIMULATED ANNEAL (PRECEDENCE LIST : in NODE LIST.LIST; 
AGENDA : in out SCHEDULE INPUTS LIST.LIST; 
H B LENGTH : in INTEGER; 
VALID SCHEDULE : in out BOOLEAN); 


end ANNEAL; 
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with TEXT IO; 

with DIAGNOSTICS; 

with RANDOM; 

with MATH; --* Necessary for EXP function. 
with DATA; use DATA; 

with FRONT_END; use FRONT_END; 


package body ANNEAL is 


package int_io is new TEXT_IO.integer_io(integer),--put in for debugging 
use int 10; 

package float. io is new TEXT. IO.float  Jo(float);--put in for debugging 
use float 10; 


--* The following code is a modification of the HARMONIC BLOCK WITH PRECEDENCE 
--* CONSTRAINTS scheduling algorithm developed and implemented by Kilic. It is 
--* intended to develop an initial solution. 


procedure CREATE_INTERVAL (THE. OT ee in OPERATOR; 
:in out SCHEDULE_INPUTS; 
S USE : in VALUE) is 
LOWER. BOUND : VALUE; 


function CALC LOWER, BOUND retum VALUE is 
begin 
— ar CREATE_INTERVAL function is used in both SCHEDULE_INITIAL_SET and 
-- SCHEDULE _REST_OF_BLOCK (OLD LOWER /- 0) check is needed.In case of the 
-- operator is scheduled somewhere in its interval and (OLD_LOWER /= 0), 
-- this check guarantees that the periods will be consistent. 
if (OLD_LOWER /= 0) then --* Schedule subsequent instance of task 
LOWER_BOUND := OLD_LOWER; 
else --* Schedule first instance of task 
eos :z INPUT.THE START; 
end 
retum LOWER BOUND; 
end CALC LOWER, BOUND; 


function CALC. UPPER, BOUND return VALUE is 
begin 
if THE OPERATOR.THE WITHIN = 0 then 
return LOWER, BOUND « THE OPERATOR.THE PERIOD - THE OPERATOR.THE MET; 
-- if the operator has a WITHIN constraint, the upper bound of the 
-- interval is reduced. 
else 
rum LOWER BOUND «4 THE OPERATOR.THE WITHIN - THE OPERATOR.THE MET; 
end if; 
end CALC UPPER. BOUND; 
begin --main CREATE INTERVAL 
INPUT.THE LOWER := CALC LOWER BOUND: 
INPUT.THE UPPER :- CALC. UPPER, BOUND; 
end CREATE INTERVAL; 
procedure SCHEDULE INITIAL SET (PRECEDENCE LIST : in NODE LIST.LIST; 
THE SCHEDULE INPUTS : in out SCHEDULE INPUTS LIST.LIST; 
HARMONIC BLOCK LENGTH : in INTEGER; 
STOP TIME : in out INTEGER) is 
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V 

START TIME 
NEW INPUT 
OLD LOWER 
OP NUM 
TEMP 


: NODE LIST.LIST := PRECEDENCE LIST: 
: INTEGER := 0; 

: SCHEDULE INPUTS; 

: VALUE :=0; 

: INTEGER; 

: OPERATOR; 


begin --SCHEDULE INITIAL SET 
SCHEDULE INPUTS LIST.EMPTY(THE SCHEDULE INPUTS); 
NEW INPUT.THE OPERATOR :z 0; --* This Code schedules 
NEW INPUT.THE LOWER :: HARMONIC BLOCK LENGTH -«10;--* the first and only 
SCHEDULE INPUTS LIST.ADD (NEW INPUT, THE SCHEDULE INPUTS);--* instance of the 


NODE LIST.NEXT(V);-- 


* dummy start node. 


while NODE LIST.NON EMPTY(V) loop 
OP. NUM :: NODE LIST.VALUE(V); 
TEMP : NEW. GRAPH.OP. RETURN(OP NUM); 
NEW INPUT.THE OPERATOR :2 OP NUM; 
NEW INPUT.THE START :: START TIME; 
STOP TIME := START TIME + TEMP.THE MET; 
NEW INPUT.THE STOP := STOP TIME; 
START TIME : = STOP_ TIME; 
-- for every operator in SCHEDULE_ INITIAL_SET, OLD_LOWER is zero. So we 
-- always send zero value to CREATE_INTERVAL. 
CREATE INTERVAL(TEMP, NEW. INPUT, OLD LOWER); 
SCHEDULE INPUTS LIST.ADD (NEW INPUT, THE SCHEDULE INPUTS); 


NODE LIST.NEXT(V); 


end loop; 


end SCHEDULE INITIAL SET; 


procedure SCHEDULE REST. OF ' BLOCK(PRECEDENCE | LIST:in NODE LIST.LIST; 


START TIME 
TIME STOP 

NEW INPUT 

OLD LOWER 
OUTSIDE BLOCK 
OP NUM 

TEMP OP 


begin 


—SCHEDULE INPUTS : in out SCHEDULE INPUTS _LIST.LIST; 


HARMONIC BLOCK LENGTH : in INTEGER; 
STOP TIME : in INTEGER) is 


: NODE LIST.LIST : PRECEDENCE LIST; 
: SCHEDULE INPUTS LIST.LIST : THE SCHEDULE INPUTS; 


: NODE LIST.LIST; 

: SCHEDULE INPUTS LIST.LIST; 
: SCHEDULE INPUTS LIST.LIST; 
: SCHEDULE INPUTS LIST.LIST; 
: INTEGER := 0; 

: INTEGER := STOP TIME; 

: SCHEDULE INPUTS; 

: VALUE; 

: BOOLEAN := false; 

: INTEGER; 

: OPERATOR; 


gl 
NODE LIST.DUPLICATE(PRECEDENCE LIST, V LIST); 


SCHEDULE INPUTS LIST.LIST REVERSE(THE SCHEDULE INPUTS, P); 


T := P; 


loo 


p 
while SCHEDULE_INPUTS_LIST.NON_EMPTY (P) loop 


--* Changed < to <= on 1 Apr 91 to correct flaw in scheduler 
OP_NUM := NODE LIST.VALUE(V); 
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TEMP OP:= NEW GRAPH.OP RETURN(OP NUM); 
if (SCHEDULE INPUTS LIST.VALUE(P).THE LOWER 
+ TEMP OP.THE PERIOD 
+ TEMP OP.THE MET) <= HARMONIC BLOCK LENGTH then 
NEW INPUT.THE OPERATOR := OP NUM; 
--* The following if statement determines the appropriate start time 
--* of an operator. 
if SCHEDULE INPUTS LIST.VALUE(P).THE LOWER 
+ TEMP OP.THE, PERIOD >= TIME STOP then 
START TIME := SCHEDULE INPUTS LIST.VALUE(P).THE LOWER + TEMP OP.THE PERIOD; 
else 
START TIME := TIME STOP; 
end if; 
NEW_INPUT.THE_START := START_TIME; 
NEW_INPUT.THE_STOP := START_TIME + TEMP_OP.THE_MET; 
TIME_STOP := NEW_INPUT.THE_STOP; 
OLD LOWER := SCHEDULE INPUTS LIST.VALUE(P).THE LOWER + TEMP OP.THE PERIOD; 
CREATE INTERVAL(TEMP OP, NEW INPUT, OLD LOWER); 
NEW INPUT.THE INSTANCE := SCHEDULE INPUTS LIST.VALUE(P).THE INSTANCE + 1; 
SCHEDULE INPUTS LIST.ADD(NEW INPUT, TEMP); 
SCHEDULE INPUTS. LIST.ADD(NEW INPUT, S); 
NODE LIST.NEXT(V); 
SCHEDULE, INPUTS LIST.NEXT(P); 
else 


NODE LIST.NEXT(V); 
NODE LIST.REMOVE(OP NUM, V. LIST); 
SCHEDULE INPUTS. LIST.NEXT(P); 
end if; 
end loop; 
if SCHEDULE INPUTS LIST.NON EMPTY(S) then 
SCHEDULE INPUTS LIST.FREE, LIST(T); 
SCHEDULE INPUTS LIST.LIST REVERSE(S, P); 
rue INPUTS LIST.FREE LIST(S); 
V :z V LIST; 
else 
exit; 
end if; 
end loop; 
SCHEDULE INPUTS LIST.LIST REVERSE(TEMP, THE SCHEDULE INPUTS); 
SCHEDULE INPUTS LIST.FREE LIST(TEMP); 
end SCHEDULE REST. OF. BLOCK; 


--* All code beyond this point is utilized by the SIMULATED ANNEALING algorithm *-- 


procedure TEST SCHEDULE ( AGENDA : in SCHEDULE INPUTS LIST.LIST; 
COST : in out INTEGER; 
BLOCK LENGTH :in INTEGER; 
OUTSIDE BLOCK : in out BOOLEAN) is 

--* This procedure finds the cost of a schedule by traversing through it. 


V : SCHEDULE INPUTS LIST.LIST := AGENDA; 
PREVIOUS : SCHEDULE INPUTS LIST.LIST :z null; 
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begin 
COST = 0; 
SCHEDULE_INPUTS_LIST.NEXT(V); --Bypass Dummy Start Node 
while SCHEDULE INPUTS. LIST.NON EMPTY(V) loop 
if SCHEDULE INPUTS LIST.VALUE(V).THE START 
« SCHEDULE INPUTS LIST. VALUE(V).THE LOWER then 
COST := COST « (SCHEDULE INPUTS LIST. a THE_LOWER 
- SCHEDULE_INPUTS_LIST.VALUE(V).THE_STAR 
elsif SCHEDULE INPUTS LIST.VALUE(V).THE START 
> SCHEDULE_INPUTS_LIST.VALUE(V).THE_UPPER then 
COST := COST + (SCHEDULE_INPUTS_LIST.VALUE(V).THE_START 
- SCHEDULE_INPUTS_LIST.VALUE(V).THE_UPPER); 
end if; 
PREVIOUS := V; 
SCHEDULE INPUTS LIST.NEXT(V); 
end loop; 
if SCHEDULE. INPUTS. LIST.VALUE(PREVIOUS).THE, STOP » BLOCK LENGTH then 
OUTSIDE, BLOCK := true;--* Schedule exceeds harmonic block length Not acceptable 
end if; 
end TEST SCHEDULE; 


procedure ADJUST SCHEDULE(TEMP AGENDA .  :inout SCHEDULE INPUTS LIST.LIST; 
PRECEDENCE LIST : in out NODE LIST.LIST; 


H B LENGTH : in INTEGER; 
OUTSIDE HARMONIC. BLOCK : in out BOOLEAN; 
NEW. LIST : in out BOOLEAN) is 
--* no procedure developes a new schedule based on another schedule 

HOLD, 

ADJUST. POINT : SCHEDULE INPUTS LIST.LIST; --* op that misses deadline 

V : SCHEDULE INPUTS LIST.LIST : TEMP AGENDA; 

--* Original Schedule 

PENALTY COST, 

MET, 

START TIME, 

STOP TIME : INTEGER :2 0; 

NEW. INPUT : SCHEDULE, INPUTS; 

MOVED : BOOLEAN :- false; 

ADJUSTED : BOOLEAN := false; 

REDO : BOOLEAN := false; 


procedure ADJUST PRECEDENCE (PRECEDENCE LIST: in out NODE LIST.LIST) is 
--* Develop a new precedence list. 


OP TO BE RESCHEDULED, 

TEMP PARENTS, 

PARENTS, 

TEMP : NODE LIST.LIST; 
NEW LIST, 

ADJUSTABLE, 

ADJUSTED, 

FOUND PARENT, 

CAN. GO NO FURTHER : BOOLEAN :- false; 
RESCHEDULED OP : INTEGER; 

MOVE COUNT : INTEGER := 0; 


begin 
while not NEW LIST loop 


TEMP := PRECEDENCE LIST; 
while NODE LIST.NON EMPTY(TEMP) loop --Move to tail of list 


99 


OP TO BE RESCHEDULED := TEMP; 
NODE LIST.NEXT(TEMP); 
end loop; 
MOVE COUNT := INTEGER(RANDOM.NEXT NUMBER * FLOAT(DATA.OP COUNT)); 
while MOVE COUNT > 1 loop 
NODE LIST.PREVIOUS(OP TO BE RESCHEDULED); 
MOVE COUNT :z MOVE COUNT - 1; 
end loop; 
TEMP : OP TO BE RESCHEDULED; 
NODE LIST.PREVIOUS(TEMP); 
while not ADJUSTED loop 
if not NODE LIST.NON EMPTY(TEMP) then 
exit; --* Cannot reschedule first op in list. 
end if; 
while NODE LIST.NON EMPTY(TEMP) loop 
if not NEW GRAPH.IS PARENT(NODE LIST.VALUE(TEMP), 
NODE LIST. VALUE(OP TO BE RESCHEDULED)) then 
ADJUSTABLE :- true; 
NODE LIST.PREVIOUS(TEMP); 
else 
exit; 
end if; 
end loop; 
if ADJUSTABLE then 
RESCHEDULED OP : NODE LIST. VALUE(OP TO BE RESCHEDULED); 
NODE. LIST.REMOVE(RESCHEDULED OP, PRECEDENCE LIST); 
NODE LIST.INSERT NEXT(RESCHEDULED OP, TEMP); 
ADJUSTED := true; 
NEW LIST := true; 
else 
NODE LIST.PREVIOUS(OP TO BE RESCHEDULED); 
TEMP :z OP TO BE RESCHEDULED; 
NODE LIST.PREVIOUS(TEMP); 
end if; 
end loop; 
end loop; 


end ADJUST_PRECEDENCE; 


begin --* MAIN Adjust Schedule procedure 
--* This first loop traverse thru a copy of the agenda to find the first instance of an 
--* operator that misses its deadline the schedule will be adjusted from this point. 
while SCHEDULE INPUTS LIST.NON EMPTX(V) loop 
if SCHEDULE INPUTS LIST.VALUE(V).THE START 
> SCHEDULE INPUTS LIST.VALUE(V).THE, UPPER then 
ADJUST POINT := V; 
exit; 
end 1f; 
SCHEDULE INPUTS LIST.NEXT(V); 
end loop; 
while not ADJUSTED loop 
if not SCHEDULE INPUTS LIST.NON EMPTY(V) or REDO then 
--* At this point all operators meet their deadlines but the schedule exceeds the 
--* harmonic block length. The initial set of ops must be adjusted 
ADJUST PRECEDENCE(PRECEDENCE LIST); 
SCHEDULE INPUTS LIST.FREE LIST(TEMP AGENDA); 
le E INITIAL, SET(PRECEDENCE LIST,TEMP AGENDA,H B LENGTH, 
TOP 
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SCHEDULE REST OF BLOCK(PRECEDENCE LIST,OTEMP AGENDA,H B. LENGTH, 


STOP TIME), 
NEW LIST := true; 
ADJUSTED := true; 


else 
--* The following if statement finds the point in the original AGENDA where we can begin 


--* to reschedule operators. It does so in reverse order from the point that the first 
— operator missed its deadline back to the start point of the schedule. Each 
--* operator’s start time and child relationships are checked to see if the operator 
--* that miseed its deadline (ADJUST POINT) can start prior to this operator. 
SCHEDULE INPUTS LIST.PREVIOUS(V); 
HOLD := V; 
while SCHEDULE INPUTS LIST.NON EMPTY(V) loop 
if SCHEDULE INPUTS LIST.VALUE(V).THE START 
> SCHEDULE_INPUTS_LIST.VALUE(ADJUST_POINT).THE_LOWER 
and not NEW GRAPH.1S PARENT(SCHEDULE, INPUTS. LIST.VALUE(V).THE OPERATOR, 
SCHEDULE INPUTS LIST.VALUE(ADJUST POINT).THE OPERATOR) then 
SCHEDULE. INPUTS. LIST.PREVIOUS(V); 
MOVED := true; 
else 
STOP_TIME := SCHEDULE_INPUTS_LIST.VALUE(V).THE_STOP; 
exit; 
end if; 
end loop; 
if MOVED then 
NEW_INPUT.THE_OPERATOR := 
SCHEDULE_INPUTS_LIST.VALUE(ADJUST_POINT).THE_OPERATOR; 
if SCHEDULE INPUTS LIST.VALUE(ADJUST POINT).THE LOWER 2 STOP TIME 


then 
START TIME :- SCHEDULE INPUTS LIST.VALUE(ADJUST. POINT).THE LOWER; 
else 
START TIME :z STOP TIME; 
end if; 


NEW INPUT.THE START := START TIME; 
MET:- SCHEDULE INPUTS. LIST. VALUE(ADJUST_ POINT).THE_STOP 


- SCHEDULE INPUTS LIST.VALUE(ADJUST POINT).THE START; 
STOP TIME := START TIME + MET; 
NEW INPUT.THE STOP := STOP TIME; 
NEW INPUT.THE LOWER := 

SCHEDULE, INPUTS LIST.VALUE(ADJUST POINT).THE LOWER; 
--* These should stay the same 
NEW INPUT.THE INSTANCE := 

SCHEDULE, INPUTS. LIST.V ALUE(ADJUST. POINT).THE, INSTANCE; 
NEW INPUT.THE UPPER :z 

SCHEDULE, INPUTS. LIST. VALUE(ADJUST. POINT).THE, UPPER; 
SCHEDULE INPUTS. LIST.INSERT. NEXT(NEW. INPUT, V); 


SCHEDULE INPUTS LIST.:RGEMOVE(SCHEDULE INPUTS LIST. V ALUE(ADJUST. POINT), 
TEMP AGENDA); 
SCHEDULE INPUTS LIST.NEXT(V); 
ADJUSTED := true; 
while SCHEDULE INPUTS LIST.NON EMPTY(V) loop 
if SCHEDULE INPUTS LIST. VALUE(V).THE LOWER <= STOP_TIME or 
SCHEDULE. INPUTS . LIST. VALUE(V).THE START c STOP TIME then 
if SCHEDULE_ INPUTS LIST. VALUE(V). THE START> STOP TIME then 
exit; 
end if; 
NEW_INPUT.THE_OPERATOR := SCHEDULE_INPUTS_LIST.VALUE(V).THE_OPERATOR; 
START_TIME := STOP_TIME; 
NEW_INPUT.THE _START := START TIME; 
MET:- SCHEDULE_ INPUTS_LIST. VALUE(V). THE STOP 
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- SCHEDULE INPUTS LIST.VALUE(V).THE START; 
STOP TIME := START TIME + MET; 
NEW. INPUT.THE STOP := STOP TIME; 
W INPUT.THE . LOWER := 
SCHEDULE INPUTS LIST. VALUE(V).THE LOWER; 
NEW INPUT.THE UPPER :- 
SCHEDULE INPUTS LIST. VALUE(V).THE - UPPER; 
SCHEDULE INPUTS LIST.REPLACE ITEM(NEW INPUT, V); 
end if; 
SCHEDULE INPUTS LIST.NEXT(V); 
end loop; 
end if; 
end if; 
if not ADJUSTED then 
REDO := true; 
end if; 
end loop; 
end ADJUST_SCHEDULE; 


procedure ANNEAL_PROCESS (H_B_LENGTH : in INTEGER; 
AGENDA :inout SCHEDULE INPUTS LIST.LIST; 
SOLUTION. FOUND : in out BOOLEAN; 
PENALTY_COST : in out INTEGER; 
PRECEDENCE LIST :in out NODE LIST.LIST; 
OUTSIDE. HARMONIC BLOCK : in out BOOLEAN) is 


SCRATCH AGENDA, 


BEST. AGENDA, 
TEMP AGENDA : SCHEDULE INPUTS LIST.LIST; 
TEMPERATURE : FLOAT; 
BEST. COST, 
TEMP COST * INTEGER := 0; 
TRIAL NUM : INTEGER := 100; 
ACCEPT NUM : INTEGER := 25; 
STOP TIME, 
TRIAL "COUNT, 
ACCEPT COUNT : INTEGER := 0; 
COOLING. FACTOR : FLOAT := 0.95; 
FREEZE : FLOAT := 1.0; 
NEW PREC LIST : BOOLEAN := false; 
function ANNEAL FUNCTION (COST 1 : in INTEGER; 
COST 2 : in INTEGER; 
CURRENT TEMPERATURE : in FLOAT) return FLOAT is 
DELTA C : FLOAT; 
begin 


DELTA C:=(FLOAT(COST 1- COST 2/CURRENT TEMPERATURE); 
if DELTA C <= 15.0 then 
return MATH.EXP(-DELTA C); 
else 
return 0.0; 
end if; 
end ANNEAL FUNCTION; 


begin 
SCHEDULE INPUTS LIST.DUPLICATE(AGENDA, BEST AGENDA); 
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BEST. COST : PENALTY COST; 
TEMPERATURE := 2.0 * FLOAT(PENALTY_ COST); 
CHEDULE INPUTS LIST.DUPLICATE(AGENDA, TEMP AGENDA); 
while not SOLUTION FOUND and TEMPERATURE > FREEZE loop 
while TRIAL COUNT c TRIAL NUM and ACCEPT COUNT c ACCEPT _NUM loop 
ADJUST_SCHEDULE(TEMP_AGENDA,PRECEDENCE_LIST,H_B_LENGTH,OUTSIDE_HARMONIC_BLOCK, 
NEW_PREC_LIST); 
OUTSIDE_HARMONIC_BLOCK := false; 
TEST SCHEDULE(TEMP AGENDA,TEMP COST,H B. LENGTH,OUTSIDE HARMONIC BLOCK), 
if TEMP COST <= PENALTY COST or else RANDOM.NEXT. "NUMBER 
< ANNEAL . FUNCTION(TEMP COST, PENALTY COST, TEMPERATURE) then 
if TEMP COST c BEST — in then 
BEST COST := TEMP C 
SCHEDULE INPUTS Bos Copy  LIST(TEMP AGENDA, BEST AGENDA); 
end if; 
PENALTY. COST := TEMP COST; 
SCRATCH. AGENDA :- AGENDA; 
AGENDA : TEMP AGENDA; 
TEMP AGENDA :- SCRATCH AGENDA; 
ACCEPT. COUNT :- ACCEPT. COUNT + 1; 
elsif NEW PREC. LIST then 
SCRATCH. AGENDA :» AGENDA; 
AGENDA :z TEMP AGENDA; 
TEMP AGENDA := - SCRATCH AGENDA; 
PENALTY COST := TEMP . COST: 
NEW PREC LIST := false; 
if TEMP COST « BEST. COST then 
BEST COST :- TEMP COST; 
SCHEDULE. . INPUTS “LIST. COPY LIST(TEMP AGENDA, BEST AGENDA); 
end i 
end if; 
SCRATCH_AGENDA := null; 
TRIAL_COUNT := TRIAL _COUNT + 
if PENALTY_COST <= 0 and not TOROF _HARMONIC_BLOCK then 
SOLUTION_FOUND := true; 
exit; 


else 
Su MEME INPUTS LIST.COPY LIST(AGENDA, TEMP AGENDA); 
en 
end loop; 
ACCEPT COUNT :- 0; 
TRIAL COUNT :2 0; 
an := TEMPERATURE * COOLING FACTOR; 
end loop; 
if not SOLUTION FOUND then 
AGENDA :- BEST AGENDA; 
= _COST := BEST COST: 
en 


end ANNEAL PROCESS; 


procedure SIMULATED_ANNEAL (PRECEDENCE_LIST : in NODE LIST LIST; 
AGENDA : in out SCHEDULE . INPUTS LIST.LIST; 
H B LENGTH . :in INTEGER 
VALID SCHEDULE : in out BOOLEAN) i 1S 


PENALTY_COST, 
TEMP_COST, 
STOP_TIME : INTEGER := 0; --* (MAR 91) 
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ANNEAL : BOOLEAN := false; 
WORKING_PRECEDENCE_LIST : NODE LIST.LIST; 


OUTSIDE HARMONIC BLOCK : BOOLEAN := false; 
A AGENDA : SCHEDULE INPUTS LIST.LIST; 
BLANK : SCHEDULE INPUTS; 

begin 


NODE LIST.DUPLICATE(PRECEDENCE LIST,WORKING. PRECEDENCE LIST); 

SCHEDULE INITIAL SET(PRECEDENCE LIST,AGENDA,H B LENGTH, STOP TIME); 
SCHEDULE REST OF BLOCK(PRECEDENCE LIST,AGENDA,H B LENGTH, STOP TIME); 
ANNEAL := false; 


TEST SCHEDULE(AGENDA,PENALTY COST,H B. LENGTH,OUTSIDE HARMONIC BLOCK); 
if PENALTY COST » 0 or OUTSIDE - HARMONIC. BLOCK then —* Then Aneealing is required. 
OUTSIDE ON BLOCK := false; 
ANNEAL := 
RANDOM. INITIALIZE(2*DATA. OP_COUNT+1); --* Initialize Random Number Generator 
--* with an odd number. 


else 
VALID_SCHEDULE := true; 

end if; 

if ANNEAL then 
ANNEAL_PROCESS(H_B_LENGTH,AGENDA, VALID_SCHEDULE,PENALTY_COST, 
E a DIENTE OUSIDE HARMONIC BLOCK); 

end if; 

end SIMULATED_ANNEAL; 


end ANNEAL; 
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